home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Atari Mega Archive 1
/
Atari Mega Archive - Volume 1.iso
/
language
/
clisp_c.zoo
/
compiler.fas
< prev
next >
Wrap
Text File
|
1993-06-05
|
244KB
|
4,387 lines
(SYSTEM::VERSION '(SYSTEM::CLISP2 14. LISP:T 210292.))
#Y(#:TOP-LEVEL-FORM-1 #13Y(00 00 00 00 00 01 D4 36 02 30 07 19 01) "LISP")
#Y(#:TOP-LEVEL-FORM-2 #13Y(00 00 00 00 00 01 D4 36 01 2F FF 19 01)
(COMPILER COMPILE COMPILE-FILE DISASSEMBLE)
)
#Y(#:TOP-LEVEL-FORM-3 #17Y(00 00 00 00 00 01 D4 63 01 36 03 2F E0 0F 01 19 01)
COMPILER *FEATURES*
)
#Y(#:TOP-LEVEL-FORM-4 #13Y(00 00 00 00 00 01 D4 36 02 30 07 19 01) "COMPILER")
#Y(#:TOP-LEVEL-FORM-5 #13Y(00 00 00 00 00 01 D4 36 01 30 01 19 01)
(PARSE-BODY MAKE-LOAD-TIME-EVAL CLOSURE-NAME CLOSURE-CODEVEC CLOSURE-CONSTS
FIXNUMP SHORT-FLOAT-P SINGLE-FLOAT-P DOUBLE-FLOAT-P LONG-FLOAT-P
SEARCH-FILE *DATE-FORMAT* %FUNTABREF INLINABLE *COMPILING*
*COMPILING-FROM-FILE* *INLINE-FUNCTIONS* *VENV* *FENV* *BENV* *GENV* *DENV*
*TOPLEVEL-DENV* C-PROCLAIM C-PROCLAIM-CONSTANT C-DEFUN C-PROVIDE C-REQUIRE
))
#Y(#:TOP-LEVEL-FORM-6 #13Y(00 00 00 00 00 01 D4 36 01 30 01 19 01)
(VERSION SUBR-INFO)
)
#Y(#:TOP-LEVEL-FORM-7
#28Y(00 00 00 00 00 01 D4 84 63 09 D5 D6 D4 D4 69 51 2B 04 03 D4 D8 69 F4 30
97 BE 19 01
)
*KEYWORD-PACKAGE* "~S redefines the constant ~S. Its old value was ~S."
(DEFCONSTANT *KEYWORD-PACKAGE* (FIND-PACKAGE #1="KEYWORD")) WARN #1#
)
#Y(#:TOP-LEVEL-FORM-8
#28Y(00 00 00 00 00 01 D4 84 63 09 D5 D6 D4 D4 69 51 2B 04 03 D4 D8 69 F4 30
97 BE 19 01
)
*LISP-PACKAGE* "~S redefines the constant ~S. Its old value was ~S."
(DEFCONSTANT *LISP-PACKAGE* (FIND-PACKAGE #1="LISP")) WARN #1#
)
#Y(#:TOP-LEVEL-FORM-9
#20Y(00 00 00 00 00 01 D4 2F 5F D5 83 53 04 D5 5B 2F 56 BF 19 01)
(SPECIAL *COMPILING*) *COMPILING*
)
#Y(#:TOP-LEVEL-FORM-10
#20Y(00 00 00 00 00 01 D4 2F 5F D5 83 53 04 D5 5C 2F 56 BF 19 01)
(SPECIAL *COMPILE-WARNINGS*) *COMPILE-WARNINGS*
)
#Y(#:TOP-LEVEL-FORM-11
#20Y(00 00 00 00 00 01 D4 2F 5F D5 83 53 04 D5 5C 2F 56 BF 19 01)
(SPECIAL *COMPILE-VERBOSE*) *COMPILE-VERBOSE*
)
#Y(#:TOP-LEVEL-FORM-12 #12Y(00 00 00 00 00 01 D4 2F 5F BF 19 01)
(SPECIAL *COMPILING-FROM-FILE*) *COMPILING-FROM-FILE*
)
#Y(#:TOP-LEVEL-FORM-13 #12Y(00 00 00 00 00 01 D4 2F 5F BF 19 01)
(SPECIAL *C-LISTING-OUTPUT*) *C-LISTING-OUTPUT*
)
#Y(#:TOP-LEVEL-FORM-14 #12Y(00 00 00 00 00 01 D4 2F 5F BF 19 01)
(SPECIAL *C-ERROR-OUTPUT*) *C-ERROR-OUTPUT*
)
#Y(#:TOP-LEVEL-FORM-15 #12Y(00 00 00 00 00 01 D4 2F 5F BF 19 01)
(SPECIAL *KNOWN-SPECIAL-VARS*) *KNOWN-SPECIAL-VARS*
)
#Y(#:TOP-LEVEL-FORM-16 #12Y(00 00 00 00 00 01 D4 2F 5F BF 19 01)
(SPECIAL *CONSTANT-SPECIAL-VARS*) *CONSTANT-SPECIAL-VARS*
)
#Y(#:TOP-LEVEL-FORM-17
#20Y(00 00 00 00 00 01 D4 2F 5F D5 83 53 04 D5 5B 2F 56 BF 19 01)
(SPECIAL *LIBOUTPUT-STREAM*) *LIBOUTPUT-STREAM*
)
#Y(#:TOP-LEVEL-FORM-18
#20Y(00 00 00 00 00 01 D4 2F 5F D5 83 53 04 D5 5B 2F 56 BF 19 01)
(SPECIAL *FUNCTIONS-WITH-ERRORS*) *FUNCTIONS-WITH-ERRORS*
)
#Y(#:TOP-LEVEL-FORM-19 #12Y(00 00 00 00 00 01 D4 2F 5F BF 19 01)
(SPECIAL *KNOWN-FUNCTIONS*) *KNOWN-FUNCTIONS*
)
#Y(#:TOP-LEVEL-FORM-20 #12Y(00 00 00 00 00 01 D4 2F 5F BF 19 01)
(SPECIAL *UNKNOWN-FUNCTIONS*) *UNKNOWN-FUNCTIONS*
)
#Y(#:TOP-LEVEL-FORM-21 #12Y(00 00 00 00 00 01 D4 2F 5F BF 19 01)
(SPECIAL *UNKNOWN-FREE-VARS*) *UNKNOWN-FREE-VARS*
)
#Y(#:TOP-LEVEL-FORM-22 #12Y(00 00 00 00 00 01 D4 2F 5F BF 19 01)
(SPECIAL *INLINE-FUNCTIONS*) *INLINE-FUNCTIONS*
)
#Y(#:TOP-LEVEL-FORM-23 #12Y(00 00 00 00 00 01 D4 2F 5F BF 19 01)
(SPECIAL *NOTINLINE-FUNCTIONS*) *NOTINLINE-FUNCTIONS*
)
#Y(#:TOP-LEVEL-FORM-24 #12Y(00 00 00 00 00 01 D4 2F 5F BF 19 01)
(SPECIAL *INLINE-DEFINITIONS*) *INLINE-DEFINITIONS*
)
#Y(#:TOP-LEVEL-FORM-25 #12Y(00 00 00 00 00 01 D4 2F 5F BF 19 01)
(SPECIAL *USER-DECLARATION-TYPES*) *USER-DECLARATION-TYPES*
)
#Y(#:TOP-LEVEL-FORM-26 #12Y(00 00 00 00 00 01 D4 2F 5F BF 19 01)
(SPECIAL *COMPILED-MODULES*) *COMPILED-MODULES*
)
#Y(#:TOP-LEVEL-FORM-27 #12Y(00 00 00 00 00 01 D4 2F 5F BF 19 01)
(SPECIAL *PACKAGE-TASKS*) *PACKAGE-TASKS*
)
#Y(#:TOP-LEVEL-FORM-28
#40Y(00 00 00 00 00 01 D4 D5 D6 30 9C D4 D7 5B 2B 03 04 D9 D5 DA C5 72 30 9C
D9 D7 5B 2B 03 04 DC 2D 09 DC DE 30 96 C6 19 01
)
%RECORD-REF SETF-EXPANDER %RECORD-STORE SETF %SET-DOCUMENTATION CLOSURE-NAME
-1.
#Y(SETF-CLOSURE-NAME
#17Y(00 02 00 00 00 03 94 54 70 D4 A9 D5 AD 59 04 19 04) %RECORD-STORE 0.
)
MAKE-CLOSURE REMOVE-OLD-DEFINITIONS
#Y(MAKE-CLOSURE
#25Y(00 00 00 00 80 1B 00 03 00 00 39 03 39 02 39 01 AB AB 6A 5B AB 30 5C
19 04
)
:NAME :CODEVEC :CONSTS
) )
#Y(#:TOP-LEVEL-FORM-29
#26Y(00 00 00 00 00 01 D4 84 63 09 D5 D6 D4 D4 69 51 2B 04 03 D4 D8 30 97 BE
19 01
)
INSTRUCTION-TABLE "~S redefines the constant ~S. Its old value was ~S."
(DEFCONSTANT INSTRUCTION-TABLE
'#1=#((NIL O) (PUSH-NIL N) (T O) (CONST K) (LOAD K) (LOADI NN) (LOADC NN)
(LOADV NN) (LOADIC NNN) (STORE K) (STOREI NN) (STOREC NN) (STOREV NN)
(STOREIC NNN) (GETVALUE N) (SETVALUE N) (BIND N) (UNBIND1 O)
(UNBIND N) (PROGV O) (PUSH O) (POP O) (SKIP N) (SKIPI NN) (SKIPSP N)
(SKIP&RET N) (JMP L) (JMPIF L) (JMPIFNOT L) (JMPIF1 L) (JMPIFNOT1 L)
(JMPIFATOM L) (JMPIFCONSP L) (JMPIFEQ L) (JMPIFNOTEQ L)
(JMPIFEQTO NL) (JMPIFNOTEQTO NL) (JMPHASH NHL) (JSR L) (JMPTAIL NNL)
(VENV O) (MAKE-VECTOR1&PUSH N) (COPY-CLOSURE NN) (CALL NN) (CALL0 N)
(CALL1 N) (CALL2 N) (CALLS1 B) (CALLS2 B) (CALLSR NB) (CALLC O)
(CALLCKEY O) (FUNCALL N) (APPLY N) (PUSH-UNBOUND N) (JMPIFBOUNDP NL)
(BOUNDP N) (UNBOUND->NIL N) (VALUES0 O) (VALUES1 O) (STACK-TO-MV N)
(MV-TO-STACK O) (NV-TO-STACK N) (MV-TO-LIST O) (LIST-TO-MV O)
(MVCALLP O) (MVCALL O) (BLOCK-OPEN NL) (BLOCK-CLOSE O)
(RETURN-FROM N) (TAGBODY-OPEN NLX) (TAGBODY-CLOSE-NIL O)
(TAGBODY-CLOSE O) (GO NN) (CATCH-OPEN L) (CATCH-CLOSE O) (THROW O)
(UNWIND-PROTECT-OPEN L) (UNWIND-PROTECT-NORMAL-EXIT O)
(UNWIND-PROTECT-CLOSE O) (UNWIND-PROTECT-CLEANUP O) (NOT O) (EQ O)
(CAR O) (CDR O) (CONS O) (SYMBOL-FUNCTION O) (SVREF O) (SVSET O)
(LIST N) (ERROR N) (NIL&PUSH O) (T&PUSH O) (CONST&PUSH K)
(LOAD&PUSH K) (LOADI&PUSH NN) (LOADC&PUSH NN) (LOADV&PUSH NN)
(POP&STORE N) (GETVALUE&PUSH N) (JSR&PUSH L) (COPY-CLOSURE&PUSH NN)
(CALL&PUSH NN) (CALL1&PUSH N) (CALL2&PUSH N) (CALLS1&PUSH B)
(CALLS2&PUSH B) (CALLSR&PUSH NB) (CALLC&PUSH O) (CALLCKEY&PUSH O)
(FUNCALL&PUSH N) (APPLY&PUSH N) (CAR&PUSH O) (CDR&PUSH O)
(CONS&PUSH O) (LIST&PUSH N) (NIL&STORE N) (T&STORE N)
(LOAD&STOREC NNN) (CALLS1&STORE BN) (CALLS2&STORE BN)
(CALLSR&STORE NBN) (LOAD&CDR&STORE N) (LOAD&CONS&STORE N)
(LOAD&INC&STORE N) (LOAD&DEC&STORE N) (LOAD&CAR&STORE NN)
(CALL1&JMPIF NL) (CALL1&JMPIFNOT NL) (CALL2&JMPIF NL)
(CALL2&JMPIFNOT NL) (CALLS1&JMPIF BL) (CALLS1&JMPIFNOT BL)
(CALLS2&JMPIF BL) (CALLS2&JMPIFNOT BL) (CALLSR&JMPIF NBL)
(CALLSR&JMPIFNOT NBL) (LOAD&JMPIF NL) (LOAD&JMPIFNOT NL)
(LOAD&CAR&PUSH N) (LOAD&CDR&PUSH N) (LOAD&INC&PUSH N)
(LOAD&DEC&PUSH N) (CONST&SYMBOL-FUNCTION N)
(CONST&SYMBOL-FUNCTION&PUSH N) (CONST&SYMBOL-FUNCTION&STORE NN)
) )
WARN #1#
)
#Y(#:TOP-LEVEL-FORM-30
#34Y(00 00 00 00 00 01 D4 D5 6A 63 1A 0D D5 94 57 70 A8 D6 AC 30 9C 16 01 7C
01 A9 A9 88 01 30 6D 00 19 03
)
0. #.INSTRUCTION-TABLE INSTRUCTION
)
#Y(#:TOP-LEVEL-FORM-31
#58Y(00 00 00 00 00 01 D4 84 63 09 D5 D6 D4 D4 69 51 2B 04 03 D4 36 05 C2 ED
69 68 D9 DA 6A 63 1A 0D DA 94 57 70 A8 AC AC 2F 6A 16 01 7C 01 A9 A9 88
01 30 6D 16 02 30 97 BE 19 01
)
INSTRUCTION-CODES "~S redefines the constant ~S. Its old value was ~S."
(DEFCONSTANT INSTRUCTION-CODES
(LET ((HASHTABLE (MAKE-HASH-TABLE :TEST #'EQ)))
(DOTIMES (I (LENGTH INSTRUCTION-TABLE))
(SETF (GETHASH (FIRST (SVREF INSTRUCTION-TABLE I)) HASHTABLE) I)
)
HASHTABLE
))
WARN #.#'EQ 0. #.INSTRUCTION-TABLE
)
#Y(#:TOP-LEVEL-FORM-32
#26Y(00 00 00 00 00 01 D4 84 63 09 D5 D6 D4 D4 69 51 2B 04 03 D4 D8 30 97 BE
19 01
)
INSTRUCTION-TABLE-K "~S redefines the constant ~S. Its old value was ~S."
(DEFCONSTANT INSTRUCTION-TABLE-K
'#1=#(LOAD LOAD&PUSH CONST CONST&PUSH STORE)
)
WARN #1#
)
#Y(#:TOP-LEVEL-FORM-33
#26Y(00 00 00 00 00 01 D4 84 63 09 D5 D6 D4 D4 69 51 2B 04 03 D4 D8 30 97 BE
19 01
)
SHORT-CODE-OFFSET "~S redefines the constant ~S. Its old value was ~S."
(DEFCONSTANT SHORT-CODE-OFFSET 146.) WARN 146.
)
#Y(#:TOP-LEVEL-FORM-34
#26Y(00 00 00 00 00 01 D4 84 63 09 D5 D6 D4 D4 69 51 2B 04 03 D4 D8 30 97 BE
19 01
)
SHORT-CODE-OPSIZE "~S redefines the constant ~S. Its old value was ~S."
(DEFCONSTANT SHORT-CODE-OPSIZE 22.) WARN 22.
)
#Y(#:TOP-LEVEL-FORM-35
#57Y(00 00 00 00 00 01 D4 84 63 09 D5 D6 D4 D4 69 51 2B 04 03 D4 36 05 C2 ED
69 68 D9 1A 0F A8 69 00 8A 00 05 14 AB AB 2F 6A 16 01 7C 00 A8 DA 88 01
30 6B 16 01 30 97 BE 19 01
)
FUNCTION-CODES "~S redefines the constant ~S. Its old value was ~S."
(DEFCONSTANT FUNCTION-CODES
(LET ((HASHTABLE (MAKE-HASH-TABLE :TEST #'EQ)))
(DOTIMES (I (* 3. 256.))
(LET ((SYM (%FUNTABREF I))) (WHEN SYM (SETF (GETHASH SYM HASHTABLE) I)))
)
HASHTABLE
))
WARN #.#'EQ 0. 768.
)
#Y(#:TOP-LEVEL-FORM-36
#58Y(00 00 00 00 00 01 D4 84 63 09 D5 D6 D4 D4 69 51 2B 04 03 D4 D8 1A 14 97
16 06 1A 18 A8 69 00 A8 2F 01 3E 04 89 00 70 16 05 7C 00 A8 D9 88 01 30
6B 00 16 01 14 30 97 BE 19 01
)
FUNTABR-INDEX "~S redefines the constant ~S. Its old value was ~S."
(DEFCONSTANT FUNTABR-INDEX
(DOTIMES (I (* 3. 256.))
(LET ((SYM (%FUNTABREF I)))
(MULTIPLE-VALUE-BIND (NAME REQ OPT REST-P) (SUBR-INFO SYM)
(DECLARE (IGNORE NAME REQ OPT)) (WHEN REST-P (RETURN I))
))))
WARN 0. 768.
)
#Y(#:TOP-LEVEL-FORM-37 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
CALLS-CODE REMOVE-OLD-DEFINITIONS
#Y(CALLS-CODE
#27Y(00 01 00 00 00 02 A9 D4 87 01 2D 0B D6 D7 AB 31 02 33 14 59 02 19 02
D5 94 1A 77
)
256. CALLS1 CALLS2 -256.
) )
#Y(#:TOP-LEVEL-FORM-38 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
MYTAILP REMOVE-OLD-DEFINITIONS
#Y(MYTAILP
#23Y(00 02 00 00 00 03 AA 94 21 07 93 1F 07 7A 01 1A 75 02 19 03 00 19 03
) ) )
#Y(#:TOP-LEVEL-FORM-39
#18Y(00 00 00 00 00 01 D4 2D 01 D4 D6 C1 72 30 96 BE 19 01) MEMQ
REMOVE-OLD-DEFINITIONS MACRO
#Y(MEMQ
#56Y(00 01 00 01 00 08 AA 6A 63 D4 87 01 2C 1B 94 54 70 95 54 54 70 A8 84
63 06 A8 69 60 85 34 0F D9 AA AA C4 14 31 03 1F 19 05 AA 2D 01 19 03
D6 AA AA 69 60 C1 72 C2 1A 6B
)
3. MACRO-CALL-ERROR CASE (T) ((T NIL)) MEMBER (:TEST #'EQ)
) )
#Y(#:TOP-LEVEL-FORM-40 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
COMPILER-ERROR REMOVE-OLD-DEFINITIONS
#Y(COMPILER-ERROR #13Y(00 01 00 01 00 08 39 01 D4 AB AB 5A 02)
"Compiler bug!! Occurred in ~A~@[ at ~A~]."
) )
#Y(#:TOP-LEVEL-FORM-41 #12Y(00 00 00 00 00 01 D4 2F 5F BF 19 01)
(SPECIAL *STACKZ*) *STACKZ*
)
#Y(#:TOP-LEVEL-FORM-42 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
STACKZ-FUN REMOVE-OLD-DEFINITIONS
#Y(STACKZ-FUN #18Y(00 01 00 00 00 02 93 1F 06 A9 2F C5 54 19 02 93 19 02))
)
#Y(#:TOP-LEVEL-FORM-43 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
IN-SAME-FUNCTION-P REMOVE-OLD-DEFINITIONS
#Y(IN-SAME-FUNCTION-P #15Y(00 02 00 00 00 03 AA 67 00 AA 2D 00 52 19 03)
STACKZ-FUN
) )
#Y(#:TOP-LEVEL-FORM-44 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
ZUGRIFF-IN-STACK REMOVE-OLD-DEFINITIONS
#Y(ZUGRIFF-IN-STACK
#220Y(00 02 00 00 00 03 5B D4 D4 AD 97 21 80 B0 97 20 04 D5 D6 2E 03 8B
05 A8 85 35 28 92 1F 3F 8B 00 A8 23 04 24 A8 24 06 2C AA 63 07 6A
AB 79 02 33 02 AB DC 95 54 70 31 02 33 14 79 02 33 03 16 01 1A 80
74 AA 93 1A 80 4C AB D9 95 54 70 6B 02 35 30 AB 1A 65 D5 DD 2E 03
16 01 1A 80 5A 92 25 0A 80 51 89 03 3F 93 1A 80 43 A9 D9 63 07 6B
02 33 79 02 33 01 C3 1A 1B 14 AA 31 02 33 1A 04 89 03 76 93 ED C6
1A 28 A9 D9 63 07 6B 02 33 79 02 33 01 C6 14 95 14 79 02 33 02 1A
1C 7C 01 7C 02 1A 16 8A 03 07 14 AA 31 02 33 1A 01 93 ED C9 EB BE
EC 1A 04 D5 E0 2E 03 16 01 7A 05 1A FF 4B 96 1F 15 8B 04 23 0D 0A
96 53 1F 0C 96 53 70 24 06 06 D9 AA 79 02 33 01 AA AA 3C 02 19 06
)
0. ZUGRIFF-IN-STACK "STACKZ-END" COMPILER-ERROR BIND 2. TAGBODY
*JMPBUF-SIZE* 3. "STACKZ-LISTITEM"
#S(HASH-TABLE EQ (MVCALL . 65.) (MVCALLP . 59.) (BLOCK . 38.)
(CLEANUP . 30.) (UNWIND-PROTECT . 9.) (CATCH . 38.) (PROGV . 2.)
)
1. "STACKZ-ITEM" BLOCK
) )
#Y(#:TOP-LEVEL-FORM-45 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
EXPAND-UNWIND REMOVE-OLD-DEFINITIONS
#Y(EXPAND-UNWIND
#271Y(00 03 00 00 00 04 00 29 04 00 0B 00 00 BE 0B 00 01 0B 00 02 00 0B
00 03 A8 65 01 01 AD 97 21 80 E5 97 20 04 D6 D7 2E 04 8B 05 A8 85
35 1D 92 1F 2E 8B 00 A8 23 05 1A A8 24 07 1B 94 32 C6 14 06 04 03
55 0B 03 03 16 01 1A 80 B4 60 02 01 93 1A 37 94 32 C4 1A 68 D6 DD
2E 04 16 01 1A 80 A0 92 25 0A 80 97 93 32 DF 06 03 03 55 0B 02 03
CA 0B 02 02 1A 80 8A 60 02 02 E1 63 0E 6B 02 33 31 02 33 0B 02 02
E3 06 03 01 14 31 02 33 0B 02 01 1A 80 6D 75 04 E4 06 03 03 55 0B
02 03 CF 1A 22 93 32 8A 04 6E CF 1A 1A 14 60 03 02 31 02 33 1A 08
06 02 00 1B 72 06 02 02 0B 02 00 CD 1A 34 93 32 D0 14 06 03 03 55
0B 02 03 1A 34 60 02 02 30 AB 0B 02 02 60 02 01 30 AB 0B 02 01 1A
22 14 60 03 02 31 02 33 1A 08 06 02 00 1B 72 06 02 02 0B 02 00 CA
0B 02 02 BE 0B 02 01 1A 04 D6 E7 2E 04 16 01 7A 05 1A FF 16 92 32
60 01 03 30 65 19 06
)
0.
#Y(EXPAND-UNWIND-HERE
#112Y(00 00 00 00 00 01 07 00 00 1B 38 61 00 01 D6 88 01 2E 0D DC 61
00 01 73 02 07 00 03 55 0C 00 03 61 00 02 D6 88 01 2E 0E DB 07
00 02 14 73 02 07 00 03 55 0C 00 03 00 0C 00 00 C0 0C 00 01 0C
00 02 19 01 D5 61 00 00 61 00 01 73 03 07 00 03 55 0C 00 03 61
00 02 D6 88 01 2F 04 D7 D8 2E 05 61 00 02 DA 88 01 2E 4F DB 61
00 02 30 AC 1A FF BC
)
NIL SKIPI 0. EXPAND-UNWIND "SP-depth" COMPILER-ERROR 1. SKIPSP SKIP
)
EXPAND-UNWIND "STACKZ-END" COMPILER-ERROR BIND (UNBIND1) TAGBODY
(TAGBODY-CLOSE) "STACKZ-LISTITEM"
#S(HASH-TABLE EQ (MVCALL . 132.) (MVCALLP . 105.) (BLOCK . 92.)
(CLEANUP . 78.) (UNWIND-PROTECT . 61.) (CATCH . 19.) (PROGV . 2.)
)
(UNBIND1) 1. 2. *JMPBUF-SIZE* 3. (VALUES0) (UNWIND-PROTECT-CLEANUP)
(BLOCK-CLOSE) "STACKZ-ITEM"
) )
#Y(#:TOP-LEVEL-FORM-46 #12Y(00 00 00 00 00 01 D4 2F 5F BF 19 01)
(SPECIAL *FENV*) *FENV*
)
#Y(#:TOP-LEVEL-FORM-47 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
FENV-SEARCH REMOVE-OLD-DEFINITIONS
#Y(FENV-SEARCH
#104Y(00 01 00 01 00 08 37 01 1C 0E 00 EB 89 01 19 00 19 03 D8 8C 01 3C
02 19 06 8B 00 23 04 74 D9 8C 01 94 53 1A 2A 8A 01 67 A9 85 4A 03
D5 2D 02 A9 6A 63 6A AC D7 A8 AA 87 01 2B 21 AC AC 94 57 22 13 AB
A9 30 AB 57 14 92 20 4F DA AD AB 30 AB 14 3C 03 19 06 DB A9 79 02
33 00 1A 59 AB 93 57 ED 16 02 8A 01 FF A9 1A 40
)
*FENV* FENV-SEARCH COMPILER-ERROR 0. MACRO LOCAL GLOBAL 2.
) )
#Y(#:TOP-LEVEL-FORM-48 #12Y(00 00 00 00 00 01 D4 2F 5F BF 19 01)
(SPECIAL *BENV*) *BENV*
)
#Y(#:TOP-LEVEL-FORM-49
#249Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 D7 D8 D7 5C D4 D9 6B 04 00 30
9C DA 2F 5F DB 2D 01 DB DC 30 96 DD 2F 5F DE 2F 5F DF 2D 01 DF E0 30
96 E1 2F 5F E2 2F 5F E3 2D 01 E3 E4 30 96 E5 2F 5F E6 2F 5F E7 2D 01
E7 E8 30 96 E9 2F 5F 5D 16 2F 5F 5D 17 2D 01 5D 17 5D 18 30 96 5D 19
2F 5F 5D 1A 2F 5F 5D 1B 2D 01 5D 1B 5D 1C 30 96 5D 1D 2F 5F 5D 1E 2F
5F 5D 1F 2D 01 5D 1F 5D 20 30 96 DF 5D 21 5D 22 03 23 72 30 9C DF 5D
24 5B 2B 03 25 E3 5D 21 5D 22 03 26 72 30 9C E3 5D 24 5B 2B 03 25 E7
5D 21 5D 22 03 27 72 30 9C E7 5D 24 5B 2B 03 25 5D 17 5D 21 5D 22 03
28 72 30 9C 5D 17 5D 24 5B 2B 03 25 5D 1B 5D 21 5D 22 03 29 72 30 9C
5D 1B 5D 24 5B 2B 03 25 5D 1F 5D 21 5D 22 03 2A 72 30 9C 5D 1F 5D 24
5B 2B 03 25 D7 5D 2B 5B 2B 03 25 D7 5D 2C 30 9D C1 19 01
)
MAKE-BLOCK REMOVE-OLD-DEFINITIONS
#Y(MAKE-BLOCK
#65Y(00 00 00 00 80 1B 00 06 00 00 39 06 39 05 39 04 39 03 39 02 39 01 DA
DB 6A 55 DA A9 DC B2 30 54 DA A9 DD B1 30 54 DA A9 DE B0 30 54 DA A9
DF AF 30 54 DA A9 E0 AE 30 54 DA A9 E1 AD 30 54 15 19 07
)
:FNODE :LABEL :STACKZ :CONSVAR :USED-FAR :FOR-VALUE BLOCK 7. 1. 2. 3. 4.
5. 6.
)
BLOCK DEFSTRUCT-DESCRIPTION
((FNODE 1. NIL T NIL) (LABEL 2. NIL T NIL) (STACKZ 3. NIL T NIL)
(CONSVAR 4. NIL T NIL) (USED-FAR 5. NIL T NIL) (FOR-VALUE 6. NIL T NIL)
)
(INLINE BLOCK-P) BLOCK-P
#Y(BLOCK-P #12Y(00 01 00 00 00 02 D4 AA 30 57 19 02) BLOCK)
(FUNCTION BLOCK-FNODE (BLOCK) T) (INLINE BLOCK-FNODE) BLOCK-FNODE
#Y(BLOCK-FNODE #13Y(00 01 00 00 00 02 D4 AA D5 30 53 19 02) BLOCK 1.)
(FUNCTION BLOCK-LABEL (BLOCK) T) (INLINE BLOCK-LABEL) BLOCK-LABEL
#Y(BLOCK-LABEL #13Y(00 01 00 00 00 02 D4 AA D5 30 53 19 02) BLOCK 2.)
(FUNCTION BLOCK-STACKZ (BLOCK) T) (INLINE BLOCK-STACKZ) BLOCK-STACKZ
#Y(BLOCK-STACKZ #13Y(00 01 00 00 00 02 D4 AA D5 30 53 19 02) BLOCK 3.)
(FUNCTION BLOCK-CONSVAR (BLOCK) T) (INLINE BLOCK-CONSVAR) BLOCK-CONSVAR
#Y(BLOCK-CONSVAR #13Y(00 01 00 00 00 02 D4 AA D5 30 53 19 02) BLOCK 4.)
(FUNCTION BLOCK-USED-FAR (BLOCK) T) (INLINE BLOCK-USED-FAR) BLOCK-USED-FAR
#Y(BLOCK-USED-FAR #13Y(00 01 00 00 00 02 D4 AA D5 30 53 19 02) BLOCK 5.)
(FUNCTION BLOCK-FOR-VALUE (BLOCK) T) (INLINE BLOCK-FOR-VALUE)
BLOCK-FOR-VALUE
#Y(BLOCK-FOR-VALUE #13Y(00 01 00 00 00 02 D4 AA D5 30 53 19 02) BLOCK 6.)
SETF-EXPANDER -1.
#Y(SETF-BLOCK-FNODE
#18Y(00 02 00 00 00 03 94 54 70 D4 D5 AA D6 AE 59 05 19 04)
%STRUCTURE-STORE 'BLOCK 1.
)
SETF %SET-DOCUMENTATION
#Y(SETF-BLOCK-LABEL
#18Y(00 02 00 00 00 03 94 54 70 D4 D5 AA D6 AE 59 05 19 04)
%STRUCTURE-STORE 'BLOCK 2.
)
#Y(SETF-BLOCK-STACKZ
#18Y(00 02 00 00 00 03 94 54 70 D4 D5 AA D6 AE 59 05 19 04)
%STRUCTURE-STORE 'BLOCK 3.
)
#Y(SETF-BLOCK-CONSVAR
#18Y(00 02 00 00 00 03 94 54 70 D4 D5 AA D6 AE 59 05 19 04)
%STRUCTURE-STORE 'BLOCK 4.
)
#Y(SETF-BLOCK-USED-FAR
#18Y(00 02 00 00 00 03 94 54 70 D4 D5 AA D6 AE 59 05 19 04)
%STRUCTURE-STORE 'BLOCK 5.
)
#Y(SETF-BLOCK-FOR-VALUE
#18Y(00 02 00 00 00 03 94 54 70 D4 D5 AA D6 AE 59 05 19 04)
%STRUCTURE-STORE 'BLOCK 6.
)
STRUCTURE STRUCTURE-PRINT
)
#Y(#:TOP-LEVEL-FORM-50 #12Y(00 00 00 00 00 01 D4 D5 30 9D 19 01) BLOCK
DEFSTRUCT-DESCRIPTION
)
#Y(#:TOP-LEVEL-FORM-51 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
BENV-SEARCH REMOVE-OLD-DEFINITIONS
#Y(BENV-SEARCH
#48Y(00 01 00 01 00 08 37 01 03 0E 00 EB 93 1F 0A 93 53 70 95 21 0C 7A 01
1A 73 00 19 03 93 53 54 19 03 93 53 71 D5 A9 30 57 16 01 1B 70 93 53
19 03
)
*BENV* BLOCK
) )
#Y(#:TOP-LEVEL-FORM-52 #12Y(00 00 00 00 00 01 D4 2F 5F BF 19 01)
(SPECIAL *GENV*) *GENV*
)
#Y(#:TOP-LEVEL-FORM-53
#212Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 D7 D8 D7 5C D4 D9 6B 04 00 30
9C DA 2F 5F DB 2D 01 DB DC 30 96 DD 2F 5F DE 2F 5F DF 2D 01 DF E0 30
96 E1 2F 5F E2 2F 5F E3 2D 01 E3 E4 30 96 E5 2F 5F E6 2F 5F E7 2D 01
E7 E8 30 96 E9 2F 5F 5D 16 2F 5F 5D 17 2D 01 5D 17 5D 18 30 96 5D 19
2F 5F 5D 1A 2F 5F 5D 1B 2D 01 5D 1B 5D 1C 30 96 DF 5D 1D 5D 1E 03 1F
72 30 9C DF 5D 20 5B 2B 03 21 E3 5D 1D 5D 1E 03 22 72 30 9C E3 5D 20
5B 2B 03 21 E7 5D 1D 5D 1E 03 23 72 30 9C E7 5D 20 5B 2B 03 21 5D 17
5D 1D 5D 1E 03 24 72 30 9C 5D 17 5D 20 5B 2B 03 21 5D 1B 5D 1D 5D 1E
03 25 72 30 9C 5D 1B 5D 20 5B 2B 03 21 D7 5D 26 5B 2B 03 21 D7 5D 27
30 9D C1 19 01
)
MAKE-TAGBODY REMOVE-OLD-DEFINITIONS
#Y(MAKE-TAGBODY
#57Y(00 00 00 00 80 1B 00 05 00 00 39 05 39 04 39 03 39 02 39 01 D9 DA 6A
55 D9 A9 DB B1 30 54 D9 A9 DC B0 30 54 D9 A9 DD AF 30 54 D9 A9 DE AE
30 54 D9 A9 DF AD 30 54 15 19 06
)
:FNODE :LABELLIST :STACKZ :CONSVAR :USED-FAR TAGBODY 6. 1. 2. 3. 4. 5.
)
TAGBODY DEFSTRUCT-DESCRIPTION
((FNODE 1. NIL T NIL) (LABELLIST 2. NIL T NIL) (STACKZ 3. NIL T NIL)
(CONSVAR 4. NIL T NIL) (USED-FAR 5. NIL T NIL)
)
(INLINE TAGBODY-P) TAGBODY-P
#Y(TAGBODY-P #12Y(00 01 00 00 00 02 D4 AA 30 57 19 02) TAGBODY)
(FUNCTION TAGBODY-FNODE (TAGBODY) T) (INLINE TAGBODY-FNODE) TAGBODY-FNODE
#Y(TAGBODY-FNODE #13Y(00 01 00 00 00 02 D4 AA D5 30 53 19 02) TAGBODY 1.)
(FUNCTION TAGBODY-LABELLIST (TAGBODY) T) (INLINE TAGBODY-LABELLIST)
TAGBODY-LABELLIST
#Y(TAGBODY-LABELLIST #13Y(00 01 00 00 00 02 D4 AA D5 30 53 19 02) TAGBODY 2.
)
(FUNCTION TAGBODY-STACKZ (TAGBODY) T) (INLINE TAGBODY-STACKZ) TAGBODY-STACKZ
#Y(TAGBODY-STACKZ #13Y(00 01 00 00 00 02 D4 AA D5 30 53 19 02) TAGBODY 3.)
(FUNCTION TAGBODY-CONSVAR (TAGBODY) T) (INLINE TAGBODY-CONSVAR)
TAGBODY-CONSVAR
#Y(TAGBODY-CONSVAR #13Y(00 01 00 00 00 02 D4 AA D5 30 53 19 02) TAGBODY 4.)
(FUNCTION TAGBODY-USED-FAR (TAGBODY) T) (INLINE TAGBODY-USED-FAR)
TAGBODY-USED-FAR
#Y(TAGBODY-USED-FAR #13Y(00 01 00 00 00 02 D4 AA D5 30 53 19 02) TAGBODY 5.)
SETF-EXPANDER -1.
#Y(SETF-TAGBODY-FNODE
#18Y(00 02 00 00 00 03 94 54 70 D4 D5 AA D6 AE 59 05 19 04)
%STRUCTURE-STORE 'TAGBODY 1.
)
SETF %SET-DOCUMENTATION
#Y(SETF-TAGBODY-LABELLIST
#18Y(00 02 00 00 00 03 94 54 70 D4 D5 AA D6 AE 59 05 19 04)
%STRUCTURE-STORE 'TAGBODY 2.
)
#Y(SETF-TAGBODY-STACKZ
#18Y(00 02 00 00 00 03 94 54 70 D4 D5 AA D6 AE 59 05 19 04)
%STRUCTURE-STORE 'TAGBODY 3.
)
#Y(SETF-TAGBODY-CONSVAR
#18Y(00 02 00 00 00 03 94 54 70 D4 D5 AA D6 AE 59 05 19 04)
%STRUCTURE-STORE 'TAGBODY 4.
)
#Y(SETF-TAGBODY-USED-FAR
#18Y(00 02 00 00 00 03 94 54 70 D4 D5 AA D6 AE 59 05 19 04)
%STRUCTURE-STORE 'TAGBODY 5.
)
STRUCTURE STRUCTURE-PRINT
)
#Y(#:TOP-LEVEL-FORM-54 #12Y(00 00 00 00 00 01 D4 D5 30 9D 19 01) TAGBODY
DEFSTRUCT-DESCRIPTION
)
#Y(#:TOP-LEVEL-FORM-55 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
GENV-SEARCH REMOVE-OLD-DEFINITIONS
#Y(GENV-SEARCH
#73Y(00 01 00 01 00 08 37 01 03 0E 00 EB 93 1F 09 93 53 70 A8 6A 63 D5 1A
25 00 19 03 96 53 54 1A 0D 96 53 71 D6 A9 30 57 16 01 1B 70 96 53 14
A9 3C 02 19 06 AA 93 57 14 AE 85 28 65 7C 00 A8 AA 88 01 2B 70 16 03
7A 01 1A 43
)
*GENV* 0. TAGBODY
) )
#Y(#:TOP-LEVEL-FORM-56
#28Y(00 00 00 00 00 01 D4 84 63 09 D5 D6 D4 D4 69 51 2B 04 03 D4 D8 69 60 30
97 BE 19 01
)
SPECDECL "~S redefines the constant ~S. Its old value was ~S."
(DEFCONSTANT SPECDECL
(EVAL
'#1=(LET
((*EVALHOOK*
#'(LAMBDA (FORM ENV) (DECLARE (IGNORE FORM))
(SVREF (SVREF ENV 0.) 1.)
)) )
0.
)) )
WARN #1#
)
#Y(#:TOP-LEVEL-FORM-57 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
PROCLAIMED-SPECIAL-P REMOVE-OLD-DEFINITIONS
#Y(PROCLAIMED-SPECIAL-P
#25Y(00 01 00 00 00 02 A9 30 A3 1D 0C A9 63 00 D5 36 02 2F DC 51 51 19 02
19 02
)
*KNOWN-SPECIAL-VARS* #.#'EQ
) )
#Y(#:TOP-LEVEL-FORM-58 #12Y(00 00 00 00 00 01 D4 2F 5F BF 19 01)
(SPECIAL *VENV*) *VENV*
)
#Y(#:TOP-LEVEL-FORM-59 #12Y(00 00 00 00 00 01 D4 2F 5F BF 19 01)
(SPECIAL *VENVC*) *VENVC*
)
#Y(#:TOP-LEVEL-FORM-60
#362Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 D7 D8 D7 5C D4 D9 6B 04 00 30
9C DA 2F 5F DB 2D 01 DB DC 30 96 DD 2F 5F DE 2F 5F DF 2D 01 DF E0 30
96 E1 2F 5F E2 2F 5F E3 2D 01 E3 E4 30 96 E5 2F 5F E6 2F 5F E7 2D 01
E7 E8 30 96 E9 2F 5F 5D 16 2F 5F 5D 17 2D 01 5D 17 5D 18 30 96 5D 19
2F 5F 5D 1A 2F 5F 5D 1B 2D 01 5D 1B 5D 1C 30 96 5D 1D 2F 5F 5D 1E 2F
5F 5D 1F 2D 01 5D 1F 5D 20 30 96 5D 21 2F 5F 5D 22 2F 5F 5D 23 2D 01
5D 23 5D 24 30 96 5D 25 2F 5F 5D 26 2F 5F 5D 27 2D 01 5D 27 5D 28 30
96 5D 29 2F 5F 5D 2A 2F 5F 5D 2B 2D 01 5D 2B 5D 2C 30 96 5D 2D 2F 5F
5D 2E 2F 5F 5D 2F 2D 01 5D 2F 5D 30 30 96 5D 31 2F 5F 5D 32 2F 5F 5D
33 2D 01 5D 33 5D 34 30 96 E7 5D 35 5D 36 03 37 72 30 9C E7 5D 38 5B
2B 03 39 5D 17 5D 35 5D 36 03 3A 72 30 9C 5D 17 5D 38 5B 2B 03 39 5D
1B 5D 35 5D 36 03 3B 72 30 9C 5D 1B 5D 38 5B 2B 03 39 5D 1F 5D 35 5D
36 03 3C 72 30 9C 5D 1F 5D 38 5B 2B 03 39 5D 23 5D 35 5D 36 03 3D 72
30 9C 5D 23 5D 38 5B 2B 03 39 5D 27 5D 35 5D 36 03 3E 72 30 9C 5D 27
5D 38 5B 2B 03 39 5D 2B 5D 35 5D 36 03 3F 72 30 9C 5D 2B 5D 38 5B 2B
03 39 D7 5D 40 5B 2B 03 39 D7 5D 41 30 9D C1 19 01
)
MAKE-VAR REMOVE-OLD-DEFINITIONS
#Y(MAKE-VAR
#107Y(00 00 00 00 80 1B 00 0B 00 00 39 0B 39 0A 39 09 39 08 39 07 39 06
39 05 39 04 39 03 39 02 39 01 DF E0 6A 55 DF A9 E1 B7 30 54 DF A9
E2 B6 30 54 DF A9 E3 B5 30 54 DF A9 E4 B4 30 54 DF A9 E5 B3 30 54
DF A9 E6 B2 30 54 DF A9 E7 B1 30 54 DF A9 E8 B0 30 54 DF A9 E9 AF
30 54 DF A9 5D 16 AE 30 54 DF A9 5D 17 AD 30 54 15 19 0C
)
:NAME :SPECIALP :CONSTANTP :CONSTANT :USEDP :REALLY-USEDP :MODIFIED-LIST
:REPLACEABLE-LIST :CLOSUREP :STACKZ :VENVC VAR 12. 1. 2. 3. 4. 5. 6. 7.
8. 9. 10. 11.
)
VAR DEFSTRUCT-DESCRIPTION
((NAME 1. NIL T T) (SPECIALP 2. NIL T T) (CONSTANTP 3. NIL T NIL)
(CONSTANT 4. NIL T NIL) (USEDP 5. NIL T NIL) (REALLY-USEDP 6. NIL T NIL)
(MODIFIED-LIST 7. 'NIL T NIL) (REPLACEABLE-LIST 8. 'NIL T NIL)
(CLOSUREP 9. NIL T NIL) (STACKZ 10. NIL T T) (VENVC 11. NIL T T)
)
(INLINE VAR-P) VAR-P #Y(VAR-P #12Y(00 01 00 00 00 02 D4 AA 30 57 19 02) VAR)
(FUNCTION VAR-NAME (VAR) T) (INLINE VAR-NAME) VAR-NAME
#Y(VAR-NAME #13Y(00 01 00 00 00 02 D4 AA D5 30 53 19 02) VAR 1.)
(FUNCTION VAR-SPECIALP (VAR) T) (INLINE VAR-SPECIALP) VAR-SPECIALP
#Y(VAR-SPECIALP #13Y(00 01 00 00 00 02 D4 AA D5 30 53 19 02) VAR 2.)
(FUNCTION VAR-CONSTANTP (VAR) T) (INLINE VAR-CONSTANTP) VAR-CONSTANTP
#Y(VAR-CONSTANTP #13Y(00 01 00 00 00 02 D4 AA D5 30 53 19 02) VAR 3.)
(FUNCTION VAR-CONSTANT (VAR) T) (INLINE VAR-CONSTANT) VAR-CONSTANT
#Y(VAR-CONSTANT #13Y(00 01 00 00 00 02 D4 AA D5 30 53 19 02) VAR 4.)
(FUNCTION VAR-USEDP (VAR) T) (INLINE VAR-USEDP) VAR-USEDP
#Y(VAR-USEDP #13Y(00 01 00 00 00 02 D4 AA D5 30 53 19 02) VAR 5.)
(FUNCTION VAR-REALLY-USEDP (VAR) T) (INLINE VAR-REALLY-USEDP)
VAR-REALLY-USEDP
#Y(VAR-REALLY-USEDP #13Y(00 01 00 00 00 02 D4 AA D5 30 53 19 02) VAR 6.)
(FUNCTION VAR-MODIFIED-LIST (VAR) T) (INLINE VAR-MODIFIED-LIST)
VAR-MODIFIED-LIST
#Y(VAR-MODIFIED-LIST #13Y(00 01 00 00 00 02 D4 AA D5 30 53 19 02) VAR 7.)
(FUNCTION VAR-REPLACEABLE-LIST (VAR) T) (INLINE VAR-REPLACEABLE-LIST)
VAR-REPLACEABLE-LIST
#Y(VAR-REPLACEABLE-LIST #13Y(00 01 00 00 00 02 D4 AA D5 30 53 19 02) VAR 8.)
(FUNCTION VAR-CLOSUREP (VAR) T) (INLINE VAR-CLOSUREP) VAR-CLOSUREP
#Y(VAR-CLOSUREP #13Y(00 01 00 00 00 02 D4 AA D5 30 53 19 02) VAR 9.)
(FUNCTION VAR-STACKZ (VAR) T) (INLINE VAR-STACKZ) VAR-STACKZ
#Y(VAR-STACKZ #13Y(00 01 00 00 00 02 D4 AA D5 30 53 19 02) VAR 10.)
(FUNCTION VAR-VENVC (VAR) T) (INLINE VAR-VENVC) VAR-VENVC
#Y(VAR-VENVC #13Y(00 01 00 00 00 02 D4 AA D5 30 53 19 02) VAR 11.)
SETF-EXPANDER -1.
#Y(SETF-VAR-CONSTANTP
#18Y(00 02 00 00 00 03 94 54 70 D4 D5 AA D6 AE 59 05 19 04)
%STRUCTURE-STORE 'VAR 3.
)
SETF %SET-DOCUMENTATION
#Y(SETF-VAR-CONSTANT
#18Y(00 02 00 00 00 03 94 54 70 D4 D5 AA D6 AE 59 05 19 04)
%STRUCTURE-STORE 'VAR 4.
)
#Y(SETF-VAR-USEDP
#18Y(00 02 00 00 00 03 94 54 70 D4 D5 AA D6 AE 59 05 19 04)
%STRUCTURE-STORE 'VAR 5.
)
#Y(SETF-VAR-REALLY-USEDP
#18Y(00 02 00 00 00 03 94 54 70 D4 D5 AA D6 AE 59 05 19 04)
%STRUCTURE-STORE 'VAR 6.
)
#Y(SETF-VAR-MODIFIED-LIST
#18Y(00 02 00 00 00 03 94 54 70 D4 D5 AA D6 AE 59 05 19 04)
%STRUCTURE-STORE 'VAR 7.
)
#Y(SETF-VAR-REPLACEABLE-LIST
#18Y(00 02 00 00 00 03 94 54 70 D4 D5 AA D6 AE 59 05 19 04)
%STRUCTURE-STORE 'VAR 8.
)
#Y(SETF-VAR-CLOSUREP
#18Y(00 02 00 00 00 03 94 54 70 D4 D5 AA D6 AE 59 05 19 04)
%STRUCTURE-STORE 'VAR 9.
)
STRUCTURE STRUCTURE-PRINT
)
#Y(#:TOP-LEVEL-FORM-61 #12Y(00 00 00 00 00 01 D4 D5 30 9D 19 01) VAR
DEFSTRUCT-DESCRIPTION
)
#Y(#:TOP-LEVEL-FORM-62 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
VENV-SEARCH REMOVE-OLD-DEFINITIONS
#Y(VENV-SEARCH
#129Y(00 01 00 01 00 08 37 01 03 0E 00 EB AA 83 63 21 AA 80 01 04 1A 1B
7A 01 93 1F 3E 8B 01 D7 A9 D8 78 53 00 95 22 70 8B 01 D7 A9 D9 30
53 16 01 1C 03 C0 19 03 5C 8B 02 3C 02 19 03 AC AC 94 57 21 2D D9
A9 79 02 33 00 A8 AA 88 01 2B 6E AB 93 57 ED 16 02 89 01 06 00 19
03 8A 01 7A A9 85 4A 03 DA 2D 07 A9 6A 63 6A AC DC 1A 5C C0 19 06
AB A9 30 AB 57 14 A8 0E 09 21 72 DE AD 8D 03 3C 03 19 06
)
*VENV* PROCLAIMED-SPECIAL-P SPECIAL VAR 1. 2. VENV-SEARCH COMPILER-ERROR
0. SPECDECL LOCAL
) )
#Y(#:TOP-LEVEL-FORM-63 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
ZUGRIFF-IN-CLOSURE REMOVE-OLD-DEFINITIONS
#Y(ZUGRIFF-IN-CLOSURE
#83Y(00 03 00 00 00 04 01 02 1A 1A A8 80 02 12 C1 EC 1A 0E 74 00 1A 25 8B
04 8A 02 6F 92 1F 02 7C 02 16 01 7A 04 AC D4 AF D5 30 53 22 6A 89 01
63 AB 97 53 71 2E 04 3E 02 62 01 62 01 96 53 70 D7 1A 04 7A 01 7C 00
8B 01 9A 22 77 62 00 AA AA AA 3C 03 19 07
)
VAR 11. FNODE-P 0. ZUGRIFF-IN-STACK
) )
#Y(#:TOP-LEVEL-FORM-64
#102Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 D7 D8 D7 5C D4 D9 6B 04 00 30
9C DA 2F 5F DB 2D 01 DB DC 30 96 DD 2F 5F DE 2F 5F DF 2D 01 DF E0 30
96 E1 2F 5F E2 2F 5F E3 2D 01 E3 E4 30 96 DF E5 E6 D1 72 30 9C DF E8
5B 2B 03 15 E3 E5 E6 03 16 72 30 9C E3 E8 5B 2B 03 15 D7 5D 17 5B 2B
03 15 D7 5D 18 30 9D C1 19 01
)
MAKE-CONST REMOVE-OLD-DEFINITIONS
#Y(MAKE-CONST
#33Y(00 00 00 00 80 1B 00 02 00 00 39 02 39 01 D6 D7 6A 55 D6 A9 D8 AE 30
54 D6 A9 D9 AD 30 54 15 19 03
)
:VALUE :FORM CONST 3. 1. 2.
)
CONST DEFSTRUCT-DESCRIPTION ((VALUE 1. NIL T NIL) (FORM 2. NIL T NIL))
(INLINE CONST-P) CONST-P
#Y(CONST-P #12Y(00 01 00 00 00 02 D4 AA 30 57 19 02) CONST)
(FUNCTION CONST-VALUE (CONST) T) (INLINE CONST-VALUE) CONST-VALUE
#Y(CONST-VALUE #13Y(00 01 00 00 00 02 D4 AA D5 30 53 19 02) CONST 1.)
(FUNCTION CONST-FORM (CONST) T) (INLINE CONST-FORM) CONST-FORM
#Y(CONST-FORM #13Y(00 01 00 00 00 02 D4 AA D5 30 53 19 02) CONST 2.)
SETF-EXPANDER -1.
#Y(SETF-CONST-VALUE
#18Y(00 02 00 00 00 03 94 54 70 D4 D5 AA D6 AE 59 05 19 04)
%STRUCTURE-STORE 'CONST 1.
)
SETF %SET-DOCUMENTATION
#Y(SETF-CONST-FORM
#18Y(00 02 00 00 00 03 94 54 70 D4 D5 AA D6 AE 59 05 19 04)
%STRUCTURE-STORE 'CONST 2.
)
STRUCTURE STRUCTURE-PRINT
)
#Y(#:TOP-LEVEL-FORM-65 #12Y(00 00 00 00 00 01 D4 D5 30 9D 19 01) CONST
DEFSTRUCT-DESCRIPTION
)
#Y(#:TOP-LEVEL-FORM-66 #16Y(00 00 00 00 00 01 D4 2F 5F D5 D6 2F 56 BF 19 01)
(SPECIAL *DECLARATION-TYPES*) *DECLARATION-TYPES*
(SPECIAL TYPE FTYPE FUNCTION INLINE NOTINLINE IGNORE OPTIMIZE DECLARATION
ARRAY ATOM BIGNUM BIT BIT-VECTOR CHARACTER COMMON COMPILED-FUNCTION COMPLEX
CONS DOUBLE-FLOAT FIXNUM FLOAT FUNCTION HASH-TABLE INTEGER KEYWORD LIST
LONG-FLOAT NIL NULL NUMBER PACKAGE PATHNAME RANDOM-STATE RATIO RATIONAL
READTABLE SEQUENCE SHORT-FLOAT SIMPLE-ARRAY SIMPLE-BIT-VECTOR SIMPLE-STRING
SIMPLE-VECTOR SINGLE-FLOAT STANDARD-CHAR STREAM STRING STRING-CHAR SYMBOL T
VECTOR COMPILE SOURCE
))
#Y(#:TOP-LEVEL-FORM-67 #12Y(00 00 00 00 00 01 D4 2F 5F BF 19 01)
(SPECIAL *DENV*) *DENV*
)
#Y(#:TOP-LEVEL-FORM-68 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
PROCESS-DECLARATIONS REMOVE-OLD-DEFINITIONS
#Y(PROCESS-DECLARATIONS
#204Y(00 01 00 00 00 02 01 02 AB 78 65 03 14 5B 1A 80 AE D4 A9 2E 01 1A
80 A5 8C 01 5B 1A 12 A8 7B 06 1A 0B 7E 01 00 14 85 2D 74 DD A9 2E
01 7A 01 A9 84 B6 6F 16 03 1A 80 85 8C 01 5B 1A 12 A8 7B 05 1A 0B
7E 01 00 14 85 2D 74 DF A9 2E 01 7A 01 A9 84 B6 6F 16 03 1A 80 65
16 01 A8 23 08 FF B9 A8 23 0A 55 A9 0E 04 55 0F 04 16 01 1A 80 4F
7E 01 00 1F FF 9D A8 2F C5 54 1B FF 96 8B 00 A8 86 2D 34 A8 63 02
D7 36 02 83 DC 50 63 04 8A 00 16 92 53 70 24 05 0B A9 93 53 71 D7
36 02 83 DC FF B8 7A 00 89 00 6A 16 01 0E 06 1C 0A A8 63 07 D7 36
02 83 DC FF A5 E0 A9 AB 2B 03 01 16 01 7A 01 A9 84 B6 FF AA 16 02
A9 A9 3C 02 19 04
)
"Bad declaration syntax: ~S~%Will be ignored." C-WARN *DECLARATION-TYPES*
#.#'EQ *DENV* DECLARATION *COMPILING-FROM-FILE* *USER-DECLARATION-TYPES*
SPECIAL "Non-symbol ~S may not be declared SPECIAL." IGNORE
"Non-symbol ~S may not be declared IGNORE."
"Unknown declaration ~S.~%The whole declaration will be ignored."
) )
#Y(#:TOP-LEVEL-FORM-69 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
DECLARED-NOTINLINE REMOVE-OLD-DEFINITIONS
#Y(DECLARED-NOTINLINE
#108Y(00 01 00 01 00 08 37 01 03 0E 00 EB D5 AB 73 02 63 00 D6 36 02 84
DC 12 1A 20 8B 01 8B 00 23 09 32 8B 00 23 08 39 16 01 7A 01 93 20
6D 0E 03 1C 18 AA 63 04 D9 36 02 84 DC 06 02 19 03 00 19 03 AA 63
06 D9 36 02 83 DC 74 AA DB 36 01 6A 98 C6 52 19 03 AB 8C 01 D9 36
02 84 DC 45 00 19 04 AB 8C 01 D9 36 02 84 DC FF BD 02 19 04
)
*DENV* INLINING #.#'EQUAL *COMPILING-FROM-FILE* *NOTINLINE-FUNCTIONS*
#.#'EQ *INLINE-FUNCTIONS* INLINABLE NOTINLINE INLINE
) )
#Y(#:TOP-LEVEL-FORM-70
#730Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 D7 D8 D7 5C D4 D9 6B 04 00 30
9C DA 2F 5F DB 2D 01 DB DC 30 96 DD 2F 5F DE 2F 5F DF 2D 01 DF E0 30
96 E1 2F 5F E2 2F 5F E3 2D 01 E3 E4 30 96 E5 2F 5F E6 2F 5F E7 2D 01
E7 E8 30 96 E9 2F 5F 5D 16 2F 5F 5D 17 2D 01 5D 17 5D 18 30 96 5D 19
2F 5F 5D 1A 2F 5F 5D 1B 2D 01 5D 1B 5D 1C 30 96 5D 1D 2F 5F 5D 1E 2F
5F 5D 1F 2D 01 5D 1F 5D 20 30 96 5D 21 2F 5F 5D 22 2F 5F 5D 23 2D 01
5D 23 5D 24 30 96 5D 25 2F 5F 5D 26 2F 5F 5D 27 2D 01 5D 27 5D 28 30
96 5D 29 2F 5F 5D 2A 2F 5F 5D 2B 2D 01 5D 2B 5D 2C 30 96 5D 2D 2F 5F
5D 2E 2F 5F 5D 2F 2D 01 5D 2F 5D 30 30 96 5D 31 2F 5F 5D 32 2F 5F 5D
33 2D 01 5D 33 5D 34 30 96 5D 35 2F 5F 5D 36 2F 5F 5D 37 2D 01 5D 37
5D 38 30 96 5D 39 2F 5F 5D 3A 2F 5F 5D 3B 2D 01 5D 3B 5D 3C 30 96 5D
3D 2F 5F 5D 3E 2F 5F 5D 3F 2D 01 5D 3F 5D 40 30 96 5D 41 2F 5F 5D 42
2F 5F 5D 43 2D 01 5D 43 5D 44 30 96 5D 45 2F 5F 5D 46 2F 5F 5D 47 2D
01 5D 47 5D 48 30 96 5D 49 2F 5F 5D 4A 2F 5F 5D 4B 2D 01 5D 4B 5D 4C
30 96 5D 4D 2F 5F 5D 4E 2F 5F 5D 4F 2D 01 5D 4F 5D 50 30 96 5D 51 2F
5F 5D 52 2F 5F 5D 53 2D 01 5D 53 5D 54 30 96 DF 5D 55 5D 56 03 57 72
30 9C DF 5D 58 5B 2B 03 59 E3 5D 55 5D 56 03 5A 72 30 9C E3 5D 58 5B
2B 03 59 E7 5D 55 5D 56 03 5B 72 30 9C E7 5D 58 5B 2B 03 59 5D 17 5D
55 5D 56 03 5C 72 30 9C 5D 17 5D 58 5B 2B 03 59 5D 1B 5D 55 5D 56 03
5D 72 30 9C 5D 1B 5D 58 5B 2B 03 59 5D 1F 5D 55 5D 56 03 5E 72 30 9C
5D 1F 5D 58 5B 2B 03 59 5D 23 5D 55 5D 56 03 5F 72 30 9C 5D 23 5D 58
5B 2B 03 59 5D 27 5D 55 5D 56 03 60 72 30 9C 5D 27 5D 58 5B 2B 03 59
5D 2B 5D 55 5D 56 03 61 72 30 9C 5D 2B 5D 58 5B 2B 03 59 5D 2F 5D 55
5D 56 03 62 72 30 9C 5D 2F 5D 58 5B 2B 03 59 5D 33 5D 55 5D 56 03 63
72 30 9C 5D 33 5D 58 5B 2B 03 59 5D 37 5D 55 5D 56 03 64 72 30 9C 5D
37 5D 58 5B 2B 03 59 5D 3B 5D 55 5D 56 03 65 72 30 9C 5D 3B 5D 58 5B
2B 03 59 5D 3F 5D 55 5D 56 03 66 72 30 9C 5D 3F 5D 58 5B 2B 03 59 5D
43 5D 55 5D 56 03 67 72 30 9C 5D 43 5D 58 5B 2B 03 59 5D 47 5D 55 5D
56 03 68 72 30 9C 5D 47 5D 58 5B 2B 03 59 5D 4B 5D 55 5D 56 03 69 72
30 9C 5D 4B 5D 58 5B 2B 03 59 5D 4F 5D 55 5D 56 03 6A 72 30 9C 5D 4F
5D 58 5B 2B 03 59 5D 53 5D 55 5D 56 03 6B 72 30 9C 5D 53 5D 58 5B 2B
03 59 D7 5D 6C 5B 2B 03 59 D7 5D 6D 30 9D C1 19 01
)
MAKE-FNODE REMOVE-OLD-DEFINITIONS
#Y(MAKE-FNODE
#196Y(00 00 00 00 80 1B 00 13 00 00 39 13 39 12 39 11 39 10 39 0F 39 0E
39 0D 39 0C 39 0B 37 0A 02 D1 F4 37 09 02 D1 F3 39 08 39 07 39 06
39 05 39 04 39 03 39 02 39 01 E8 E9 6A 55 E8 A9 5D 16 5E 17 30 54
E8 A9 5D 17 5E 16 30 54 E8 A9 5D 18 BD 30 54 E8 A9 5D 19 BC 30 54
E8 A9 5D 1A BB 30 54 E8 A9 5D 1B BA 30 54 E8 A9 5D 1C B9 30 54 E8
A9 5D 1D B8 30 54 E8 A9 5D 1E B7 30 54 E8 A9 5D 1F B6 30 54 E8 A9
5D 20 B5 30 54 E8 A9 5D 21 B4 30 54 E8 A9 5D 22 B3 30 54 E8 A9 5D
23 B2 30 54 E8 A9 5D 24 B1 30 54 E8 A9 5D 25 B0 30 54 E8 A9 5D 26
AF 30 54 E8 A9 5D 27 AE 30 54 E8 A9 5D 28 AD 30 54 15 19 14
)
:NAME :CODE :VENVCONST :VENVC :BLOCKS-OFFSET :BLOCKS :TAGBODYS-OFFSET
:TAGBODYS :KEYWORD-OFFSET :REQ-ANZ :OPT-ANZ :REST-FLAG :KEYWORD-FLAG
:KEYWORDS :ALLOW-OTHER-KEYS-FLAG :CONSTS-OFFSET :CONSTS :CONSTS-FORMS
:ENCLOSING 0. FNODE 20. 1. 2. 3. 4. 5. 6. 7. 8. 9. 10. 11. 12. 13. 14.
15. 16. 17. 18. 19.
)
FNODE DEFSTRUCT-DESCRIPTION
((NAME 1. NIL T NIL) (CODE 2. NIL T NIL) (VENVCONST 3. NIL T NIL)
(VENVC 4. NIL T NIL) (BLOCKS-OFFSET 5. NIL T NIL) (BLOCKS 6. NIL T NIL)
(TAGBODYS-OFFSET 7. NIL T NIL) (TAGBODYS 8. NIL T NIL)
(KEYWORD-OFFSET 9. NIL T NIL) (REQ-ANZ 10. 0. T NIL) (OPT-ANZ 11. 0. T NIL)
(REST-FLAG 12. NIL T NIL) (KEYWORD-FLAG 13. NIL T NIL)
(KEYWORDS 14. NIL T NIL) (ALLOW-OTHER-KEYS-FLAG 15. NIL T NIL)
(CONSTS-OFFSET 16. NIL T NIL) (CONSTS 17. NIL T NIL)
(CONSTS-FORMS 18. NIL T NIL) (ENCLOSING 19. NIL T NIL)
)
(INLINE FNODE-P) FNODE-P
#Y(FNODE-P #12Y(00 01 00 00 00 02 D4 AA 30 57 19 02) FNODE)
(FUNCTION FNODE-NAME (FNODE) T) (INLINE FNODE-NAME) FNODE-NAME
#Y(FNODE-NAME #13Y(00 01 00 00 00 02 D4 AA D5 30 53 19 02) FNODE 1.)
(FUNCTION FNODE-CODE (FNODE) T) (INLINE FNODE-CODE) FNODE-CODE
#Y(FNODE-CODE #13Y(00 01 00 00 00 02 D4 AA D5 30 53 19 02) FNODE 2.)
(FUNCTION FNODE-VENVCONST (FNODE) T) (INLINE FNODE-VENVCONST)
FNODE-VENVCONST
#Y(FNODE-VENVCONST #13Y(00 01 00 00 00 02 D4 AA D5 30 53 19 02) FNODE 3.)
(FUNCTION FNODE-VENVC (FNODE) T) (INLINE FNODE-VENVC) FNODE-VENVC
#Y(FNODE-VENVC #13Y(00 01 00 00 00 02 D4 AA D5 30 53 19 02) FNODE 4.)
(FUNCTION FNODE-BLOCKS-OFFSET (FNODE) T) (INLINE FNODE-BLOCKS-OFFSET)
FNODE-BLOCKS-OFFSET
#Y(FNODE-BLOCKS-OFFSET #13Y(00 01 00 00 00 02 D4 AA D5 30 53 19 02) FNODE 5.
)
(FUNCTION FNODE-BLOCKS (FNODE) T) (INLINE FNODE-BLOCKS) FNODE-BLOCKS
#Y(FNODE-BLOCKS #13Y(00 01 00 00 00 02 D4 AA D5 30 53 19 02) FNODE 6.)
(FUNCTION FNODE-TAGBODYS-OFFSET (FNODE) T) (INLINE FNODE-TAGBODYS-OFFSET)
FNODE-TAGBODYS-OFFSET
#Y(FNODE-TAGBODYS-OFFSET #13Y(00 01 00 00 00 02 D4 AA D5 30 53 19 02) FNODE
7.
)
(FUNCTION FNODE-TAGBODYS (FNODE) T) (INLINE FNODE-TAGBODYS) FNODE-TAGBODYS
#Y(FNODE-TAGBODYS #13Y(00 01 00 00 00 02 D4 AA D5 30 53 19 02) FNODE 8.)
(FUNCTION FNODE-KEYWORD-OFFSET (FNODE) T) (INLINE FNODE-KEYWORD-OFFSET)
FNODE-KEYWORD-OFFSET
#Y(FNODE-KEYWORD-OFFSET #13Y(00 01 00 00 00 02 D4 AA D5 30 53 19 02) FNODE
9.
)
(FUNCTION FNODE-REQ-ANZ (FNODE) T) (INLINE FNODE-REQ-ANZ) FNODE-REQ-ANZ
#Y(FNODE-REQ-ANZ #13Y(00 01 00 00 00 02 D4 AA D5 30 53 19 02) FNODE 10.)
(FUNCTION FNODE-OPT-ANZ (FNODE) T) (INLINE FNODE-OPT-ANZ) FNODE-OPT-ANZ
#Y(FNODE-OPT-ANZ #13Y(00 01 00 00 00 02 D4 AA D5 30 53 19 02) FNODE 11.)
(FUNCTION FNODE-REST-FLAG (FNODE) T) (INLINE FNODE-REST-FLAG)
FNODE-REST-FLAG
#Y(FNODE-REST-FLAG #13Y(00 01 00 00 00 02 D4 AA D5 30 53 19 02) FNODE 12.)
(FUNCTION FNODE-KEYWORD-FLAG (FNODE) T) (INLINE FNODE-KEYWORD-FLAG)
FNODE-KEYWORD-FLAG
#Y(FNODE-KEYWORD-FLAG #13Y(00 01 00 00 00 02 D4 AA D5 30 53 19 02) FNODE 13.
)
(FUNCTION FNODE-KEYWORDS (FNODE) T) (INLINE FNODE-KEYWORDS) FNODE-KEYWORDS
#Y(FNODE-KEYWORDS #13Y(00 01 00 00 00 02 D4 AA D5 30 53 19 02) FNODE 14.)
(FUNCTION FNODE-ALLOW-OTHER-KEYS-FLAG (FNODE) T)
(INLINE FNODE-ALLOW-OTHER-KEYS-FLAG) FNODE-ALLOW-OTHER-KEYS-FLAG
#Y(FNODE-ALLOW-OTHER-KEYS-FLAG #13Y(00 01 00 00 00 02 D4 AA D5 30 53 19 02)
FNODE 15.
)
(FUNCTION FNODE-CONSTS-OFFSET (FNODE) T) (INLINE FNODE-CONSTS-OFFSET)
FNODE-CONSTS-OFFSET
#Y(FNODE-CONSTS-OFFSET #13Y(00 01 00 00 00 02 D4 AA D5 30 53 19 02) FNODE
16.
)
(FUNCTION FNODE-CONSTS (FNODE) T) (INLINE FNODE-CONSTS) FNODE-CONSTS
#Y(FNODE-CONSTS #13Y(00 01 00 00 00 02 D4 AA D5 30 53 19 02) FNODE 17.)
(FUNCTION FNODE-CONSTS-FORMS (FNODE) T) (INLINE FNODE-CONSTS-FORMS)
FNODE-CONSTS-FORMS
#Y(FNODE-CONSTS-FORMS #13Y(00 01 00 00 00 02 D4 AA D5 30 53 19 02) FNODE 18.
)
(FUNCTION FNODE-ENCLOSING (FNODE) T) (INLINE FNODE-ENCLOSING)
FNODE-ENCLOSING
#Y(FNODE-ENCLOSING #13Y(00 01 00 00 00 02 D4 AA D5 30 53 19 02) FNODE 19.)
SETF-EXPANDER -1.
#Y(SETF-FNODE-NAME
#18Y(00 02 00 00 00 03 94 54 70 D4 D5 AA D6 AE 59 05 19 04)
%STRUCTURE-STORE 'FNODE 1.
)
SETF %SET-DOCUMENTATION
#Y(SETF-FNODE-CODE
#18Y(00 02 00 00 00 03 94 54 70 D4 D5 AA D6 AE 59 05 19 04)
%STRUCTURE-STORE 'FNODE 2.
)
#Y(SETF-FNODE-VENVCONST
#18Y(00 02 00 00 00 03 94 54 70 D4 D5 AA D6 AE 59 05 19 04)
%STRUCTURE-STORE 'FNODE 3.
)
#Y(SETF-FNODE-VENVC
#18Y(00 02 00 00 00 03 94 54 70 D4 D5 AA D6 AE 59 05 19 04)
%STRUCTURE-STORE 'FNODE 4.
)
#Y(SETF-FNODE-BLOCKS-OFFSET
#18Y(00 02 00 00 00 03 94 54 70 D4 D5 AA D6 AE 59 05 19 04)
%STRUCTURE-STORE 'FNODE 5.
)
#Y(SETF-FNODE-BLOCKS
#18Y(00 02 00 00 00 03 94 54 70 D4 D5 AA D6 AE 59 05 19 04)
%STRUCTURE-STORE 'FNODE 6.
)
#Y(SETF-FNODE-TAGBODYS-OFFSET
#18Y(00 02 00 00 00 03 94 54 70 D4 D5 AA D6 AE 59 05 19 04)
%STRUCTURE-STORE 'FNODE 7.
)
#Y(SETF-FNODE-TAGBODYS
#18Y(00 02 00 00 00 03 94 54 70 D4 D5 AA D6 AE 59 05 19 04)
%STRUCTURE-STORE 'FNODE 8.
)
#Y(SETF-FNODE-KEYWORD-OFFSET
#18Y(00 02 00 00 00 03 94 54 70 D4 D5 AA D6 AE 59 05 19 04)
%STRUCTURE-STORE 'FNODE 9.
)
#Y(SETF-FNODE-REQ-ANZ
#18Y(00 02 00 00 00 03 94 54 70 D4 D5 AA D6 AE 59 05 19 04)
%STRUCTURE-STORE 'FNODE 10.
)
#Y(SETF-FNODE-OPT-ANZ
#18Y(00 02 00 00 00 03 94 54 70 D4 D5 AA D6 AE 59 05 19 04)
%STRUCTURE-STORE 'FNODE 11.
)
#Y(SETF-FNODE-REST-FLAG
#18Y(00 02 00 00 00 03 94 54 70 D4 D5 AA D6 AE 59 05 19 04)
%STRUCTURE-STORE 'FNODE 12.
)
#Y(SETF-FNODE-KEYWORD-FLAG
#18Y(00 02 00 00 00 03 94 54 70 D4 D5 AA D6 AE 59 05 19 04)
%STRUCTURE-STORE 'FNODE 13.
)
#Y(SETF-FNODE-KEYWORDS
#18Y(00 02 00 00 00 03 94 54 70 D4 D5 AA D6 AE 59 05 19 04)
%STRUCTURE-STORE 'FNODE 14.
)
#Y(SETF-FNODE-ALLOW-OTHER-KEYS-FLAG
#18Y(00 02 00 00 00 03 94 54 70 D4 D5 AA D6 AE 59 05 19 04)
%STRUCTURE-STORE 'FNODE 15.
)
#Y(SETF-FNODE-CONSTS-OFFSET
#18Y(00 02 00 00 00 03 94 54 70 D4 D5 AA D6 AE 59 05 19 04)
%STRUCTURE-STORE 'FNODE 16.
)
#Y(SETF-FNODE-CONSTS
#18Y(00 02 00 00 00 03 94 54 70 D4 D5 AA D6 AE 59 05 19 04)
%STRUCTURE-STORE 'FNODE 17.
)
#Y(SETF-FNODE-CONSTS-FORMS
#18Y(00 02 00 00 00 03 94 54 70 D4 D5 AA D6 AE 59 05 19 04)
%STRUCTURE-STORE 'FNODE 18.
)
#Y(SETF-FNODE-ENCLOSING
#18Y(00 02 00 00 00 03 94 54 70 D4 D5 AA D6 AE 59 05 19 04)
%STRUCTURE-STORE 'FNODE 19.
)
STRUCTURE STRUCTURE-PRINT
)
#Y(#:TOP-LEVEL-FORM-71 #12Y(00 00 00 00 00 01 D4 D5 30 9D 19 01) FNODE
DEFSTRUCT-DESCRIPTION
)
#Y(#:TOP-LEVEL-FORM-72 #12Y(00 00 00 00 00 01 D4 2F 5F BF 19 01)
(SPECIAL *FUNC*) *FUNC*
)
#Y(#:TOP-LEVEL-FORM-73 #12Y(00 00 00 00 00 01 D4 2F 5F BF 19 01)
(SPECIAL *FUNC-START-LABEL*) *FUNC-START-LABEL*
)
#Y(#:TOP-LEVEL-FORM-74 #12Y(00 00 00 00 00 01 D4 2F 5F BF 19 01)
(SPECIAL *ANONYMOUS-COUNT*) *ANONYMOUS-COUNT*
)
#Y(#:TOP-LEVEL-FORM-75 #12Y(00 00 00 00 00 01 D4 2F 5F BF 19 01)
(SPECIAL *NO-CODE*) *NO-CODE*
)
#Y(#:TOP-LEVEL-FORM-76 #12Y(00 00 00 00 00 01 D4 2F 5F BF 19 01)
(SPECIAL *FORM*) *FORM*
)
#Y(#:TOP-LEVEL-FORM-77 #12Y(00 00 00 00 00 01 D4 2F 5F BF 19 01)
(SPECIAL *FOR-VALUE*) *FOR-VALUE*
)
#Y(#:TOP-LEVEL-FORM-78
#136Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 D7 D8 D7 5C 5B D9 6B 04 00 30
9C DA 2F 5F DB 2D 01 DB DC 30 96 DD 2F 5F DE 2F 5F DF 2D 01 DF E0 30
96 E1 2F 5F E2 2F 5F E3 2D 01 E3 E4 30 96 E5 2F 5F E6 2F 5F E7 2D 01
E7 E8 30 96 DF E9 5D 16 03 17 72 30 9C DF 5D 18 5B 2B 03 19 E3 E9 5D
16 03 1A 72 30 9C E3 5D 18 5B 2B 03 19 E7 E9 5D 16 03 1B 72 30 9C E7
5D 18 5B 2B 03 19 D7 5D 1C 5B 2B 03 19 D7 5D 1D 30 9D C1 19 01
)
MK-ANODE REMOVE-OLD-DEFINITIONS
#Y(MK-ANODE
#31Y(00 03 00 00 00 04 D4 D5 6A 55 D4 A9 D6 AF 30 54 D4 A9 D7 AE 30 54 D4
A9 D8 AD 30 54 15 19 04
)
ANODE 4. 1. 2. 3.
)
ANODE DEFSTRUCT-DESCRIPTION
((TYPE 1. NIL T NIL) (SECLASS 2. NIL T NIL) (CODE 3. NIL T NIL))
(INLINE ANODE-P) ANODE-P
#Y(ANODE-P #12Y(00 01 00 00 00 02 D4 AA 30 57 19 02) ANODE)
(FUNCTION ANODE-TYPE (ANODE) T) (INLINE ANODE-TYPE) ANODE-TYPE
#Y(ANODE-TYPE #13Y(00 01 00 00 00 02 D4 AA D5 30 53 19 02) ANODE 1.)
(FUNCTION ANODE-SECLASS (ANODE) T) (INLINE ANODE-SECLASS) ANODE-SECLASS
#Y(ANODE-SECLASS #13Y(00 01 00 00 00 02 D4 AA D5 30 53 19 02) ANODE 2.)
(FUNCTION ANODE-CODE (ANODE) T) (INLINE ANODE-CODE) ANODE-CODE
#Y(ANODE-CODE #13Y(00 01 00 00 00 02 D4 AA D5 30 53 19 02) ANODE 3.)
SETF-EXPANDER -1.
#Y(SETF-ANODE-TYPE
#18Y(00 02 00 00 00 03 94 54 70 D4 D5 AA D6 AE 59 05 19 04)
%STRUCTURE-STORE 'ANODE 1.
)
SETF %SET-DOCUMENTATION
#Y(SETF-ANODE-SECLASS
#18Y(00 02 00 00 00 03 94 54 70 D4 D5 AA D6 AE 59 05 19 04)
%STRUCTURE-STORE 'ANODE 2.
)
#Y(SETF-ANODE-CODE
#18Y(00 02 00 00 00 03 94 54 70 D4 D5 AA D6 AE 59 05 19 04)
%STRUCTURE-STORE 'ANODE 3.
)
STRUCTURE STRUCTURE-PRINT
)
#Y(#:TOP-LEVEL-FORM-79 #12Y(00 00 00 00 00 01 D4 D5 30 9D 19 01) ANODE
DEFSTRUCT-DESCRIPTION
)
#Y(#:TOP-LEVEL-FORM-80 #9Y(00 00 00 00 00 01 00 19 01))
#Y(#:TOP-LEVEL-FORM-81 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
SECLASS-OR REMOVE-OLD-DEFINITIONS
#Y(SECLASS-OR
#21Y(00 00 00 00 01 16 8A 01 09 90 01 AA 36 04 30 67 19 02 BE 19 02)
(NIL) SECLASS-OR-2
) )
#Y(#:TOP-LEVEL-FORM-82 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
SECLASS-OR-2 REMOVE-OLD-DEFINITIONS
#Y(SECLASS-OR-2
#48Y(00 02 00 00 00 03 8B 02 02 21 1F 8B 01 02 21 1A 8B 02 8B 02 2E 00 14
8C 03 02 21 11 8C 02 02 21 0C 8C 03 8C 03 2E 00 55 19 03 02 1A 69 02
1A 77
)
UNION
) )
#Y(#:TOP-LEVEL-FORM-83 #9Y(00 00 00 00 00 01 00 19 01))
#Y(#:TOP-LEVEL-FORM-84 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
ANODELIST-SECLASS-OR REMOVE-OLD-DEFINITIONS
#Y(ANODELIST-SECLASS-OR
#18Y(00 01 00 00 00 02 90 00 90 01 AB 31 00 17 35 00 19 02) SECLASS-OR
ANODE-SECLASS
) )
#Y(#:TOP-LEVEL-FORM-85 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
SECLASS-WITHOUT REMOVE-OLD-DEFINITIONS
#Y(SECLASS-WITHOUT
#51Y(00 02 00 00 00 03 00 29 01 76 02 00 00 A8 65 00 01 8B 04 02 21 17 A8
8B 05 36 05 30 6B 14 8C 05 02 21 0D A9 8C 06 36 05 30 6B 55 19 05 02
1A 6D 02 1A 77
)
#Y(SECLASS-WITHOUT-BOUND
#16Y(00 01 00 00 00 02 A9 61 00 00 36 03 2F DC 19 02) NIL
) ) )
#Y(#:TOP-LEVEL-FORM-86 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
ANODES-COMMUTE REMOVE-OLD-DEFINITIONS
#Y(ANODES-COMMUTE
#20Y(00 02 00 00 00 03 D4 AB D5 6A 53 D4 AB D5 6A 53 2E 02 19 03) ANODE
2. SECLASSES-COMMUTE
) )
#Y(#:TOP-LEVEL-FORM-87 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
SECLASSES-COMMUTE REMOVE-OLD-DEFINITIONS
#Y(SECLASSES-COMMUTE
#24Y(00 02 00 00 00 03 8B 02 8C 02 BE 32 1E 08 8B 01 8C 03 BE 32 19 03 19
03
)
#Y(SECLASSES-COMMUTE-DISJOINT-P
#35Y(00 02 00 00 00 03 94 51 1D 17 93 51 1D 13 AA 02 52 51 1E 0D A9 02
52 51 1E 07 AA AA 2E 00 51 19 03 19 03
)
INTERSECTION
) ) )
#Y(#:TOP-LEVEL-FORM-88 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
SYMBOL-SUFFIX REMOVE-OLD-DEFINITIONS
#Y(SYMBOL-SUFFIX
#64Y(00 02 00 00 00 03 AA 6A 9E AA 85 2D 24 AA 85 2E 0C AA 36 0B 74 06 BE
EE 74 05 77 8A 02 D5 AC 6A A0 D6 AD 6B 03 23 89 01 11 A8 2F F3 19 05
94 19 04 8A 00 7A AA 78 A0 02 1A 63 A8 AA 2F FC 19 05
)
10. STRING "-"
) )
#Y(#:TOP-LEVEL-FORM-89 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
C-COMMENT REMOVE-OLD-DEFINITIONS
#Y(C-COMMENT
#32Y(00 01 00 00 01 17 0E 00 1B 09 0E 02 14 89 00 07 00 19 04 0E 01 1A 75
90 03 A9 AD 97 35 02 19 04
)
*COMPILE-VERBOSE* *C-ERROR-OUTPUT* *C-LISTING-OUTPUT* FORMAT
) )
#Y(#:TOP-LEVEL-FORM-90 #12Y(00 00 00 00 00 01 D4 2F 5F BF 19 01)
(SPECIAL *WARNING-COUNT*) *WARNING-COUNT*
)
#Y(#:TOP-LEVEL-FORM-91 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
C-WARN REMOVE-OLD-DEFINITIONS
#Y(C-WARN
#69Y(00 01 00 00 01 17 D4 D5 AC 79 02 23 02 63 02 30 AB 0F 02 0E 03 1B 09
0E 05 14 89 00 07 00 19 04 0E 04 1A 75 90 06 A9 AD DB 84 53 13 63 07
DC A9 30 57 16 01 1C 09 63 07 DC A9 DD 30 53 16 01 14 98 35 03 19 04
)
STRING "~%WARNING~@[ in function ~S~] :~%" *WARNING-COUNT*
*COMPILE-WARNINGS* *C-ERROR-OUTPUT* *C-LISTING-OUTPUT* FORMAT *FUNC*
FNODE 1.
) )
#Y(#:TOP-LEVEL-FORM-92 #12Y(00 00 00 00 00 01 D4 2F 5F BF 19 01)
(SPECIAL *ERROR-COUNT*) *ERROR-COUNT*
)
#Y(#:TOP-LEVEL-FORM-93 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
C-ERROR REMOVE-OLD-DEFINITIONS
#Y(C-ERROR
#78Y(00 01 00 00 01 17 D4 D5 AC 79 02 23 02 63 02 30 AB 0F 02 D7 84 53 13
63 03 D8 A9 30 57 16 01 1C 09 63 03 D8 A9 D9 30 53 16 01 14 8A 00 0D
0E 06 1C 09 A8 63 07 36 03 2F E0 0F 07 90 08 63 09 AD AB 98 35 03 16
01 DE DF E0 E1 2B 03 0E 4C
)
STRING "~%ERROR~@[ in function ~S~] :~%" *ERROR-COUNT* *FUNC* FNODE 1.
*COMPILING-FROM-FILE* *FUNCTIONS-WITH-ERRORS* FORMAT *C-ERROR-OUTPUT*
C-ERROR ERROR (NIL) ((NIL)) MK-ANODE
) )
#Y(#:TOP-LEVEL-FORM-94 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
C-EVAL-WHEN-COMPILE REMOVE-OLD-DEFINITIONS
#Y(C-EVAL-WHEN-COMPILE
#42Y(00 01 00 00 00 02 0E 00 1C 1B 0E 01 1C 17 63 01 2F 90 A9 36 0B 75 01
EA EC ED F1 F0 74 09 F2 75 05 63 01 2F 85 A9 2F 60 19 02
)
*COMPILING-FROM-FILE* *LIBOUTPUT-STREAM*
) )
#Y(#:TOP-LEVEL-FORM-95 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
C-CONSTANTP REMOVE-OLD-DEFINITIONS
#Y(C-CONSTANTP
#84Y(00 01 00 00 00 02 93 1F 1B 8B 01 C0 52 1E 80 42 8C 01 30 2B 1E 3C 93
54 54 51 19 02 02 19 02 A9 2F 63 19 02 A9 30 2F 1D 29 A9 30 43 1D 24
A9 30 2E 1D 1F A9 30 48 1D 1A A9 30 2D 1E 15 A9 85 A1 5B A9 6A 9E 0E
00 21 57 A9 63 01 36 03 2F E3 51 1A 47 19 02
)
*LISP-PACKAGE* *CONSTANT-SPECIAL-VARS* QUOTE
) )
#Y(#:TOP-LEVEL-FORM-96 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
C-CONSTANT-VALUE REMOVE-OLD-DEFINITIONS
#Y(C-CONSTANT-VALUE
#66Y(00 01 00 00 00 02 93 20 34 A9 85 2F 14 A9 85 43 10 A9 85 2E 0C A9 85
48 08 A9 86 2D 1D A9 86 A1 08 93 19 02 A9 2F 51 19 02 A9 6A 9E 0E 00
21 74 A9 63 01 36 03 2F E3 54 19 02 00 19 02 93 54 53 19 02
)
*LISP-PACKAGE* *CONSTANT-SPECIAL-VARS*
) )
#Y(#:TOP-LEVEL-FORM-97 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
ANODE-CONSTANTP REMOVE-OLD-DEFINITIONS
#Y(ANODE-CONSTANTP
#47Y(00 01 00 00 00 02 D4 AA D5 6A 53 A8 30 2B 1E 1D 92 54 51 1E 18 8B 00
92 20 08 D4 A9 85 57 09 00 19 04 8B 00 C0 52 19 04 A8 27 01 05 59 19
03
)
ANODE 3. CONST
) )
#Y(#:TOP-LEVEL-FORM-98 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
ANODE-CONSTANT REMOVE-OLD-DEFINITIONS
#Y(ANODE-CONSTANT
#25Y(00 01 00 00 00 02 D4 AA D5 30 53 70 92 20 05 A8 27 01 04 72 92 54 53
19 03
)
ANODE 3.
) )
#Y(#:TOP-LEVEL-FORM-99 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
ANODE-CONSTANT-VALUE REMOVE-OLD-DEFINITIONS
#Y(ANODE-CONSTANT-VALUE
#16Y(00 01 00 00 00 02 A9 67 00 D5 A9 D6 30 53 19 03) ANODE-CONSTANT
CONST 1.
) )
#Y(#:TOP-LEVEL-FORM-100 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
NEW-CONST REMOVE-OLD-DEFINITIONS
#Y(NEW-CONST #12Y(00 01 00 00 00 02 D4 AA 2E 01 19 02) :VALUE MAKE-CONST)
)
#Y(#:TOP-LEVEL-FORM-101 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
MAKE-LABEL REMOVE-OLD-DEFINITIONS
#Y(MAKE-LABEL
#22Y(00 01 00 00 00 02 36 01 6A A4 A8 5B 2F 56 A8 D4 AC 30 9C 15 19 02)
FOR-VALUE
) )
#Y(#:TOP-LEVEL-FORM-102 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
MAKE-SPECIAL-VAR REMOVE-OLD-DEFINITIONS
#Y(MAKE-SPECIAL-VAR
#37Y(00 01 00 00 00 02 D4 AA D5 5C D6 AE 67 03 D8 B0 7F 03 07 00 14 2B 08
09 19 02 D9 B1 67 06 DB B3 2B 04 08 1A 6F
)
:NAME :SPECIALP :CONSTANTP C-CONSTANTP :CONSTANT :VALUE C-CONSTANT-VALUE
:FORM MAKE-CONST MAKE-VAR
) )
#Y(#:TOP-LEVEL-FORM-103 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
TEST-LIST REMOVE-OLD-DEFINITIONS
#Y(TEST-LIST
#64Y(00 01 00 02 00 0D 37 02 02 BE EC 39 01 AB 86 34 06 AB 2F C5 54 1C 04
D5 AC 2E 02 AB 6A 63 AB 88 01 30 0E 8A 01 08 AB 6A 63 AA 88 01 2F 0C
00 19 04 D7 AC 2E 02 8A 01 76 1A 6C D8 AC 2E 02 19 04
)
0. "Code contains dotted list ~S" C-ERROR
"Form too short, too few arguments: ~S"
"Form too long, too many arguments: ~S"
) )
#Y(#:TOP-LEVEL-FORM-104
#66Y(00 00 00 00 00 01 D4 84 63 09 D5 D6 D4 D4 69 51 2B 04 03 D4 36 05 C2 ED
69 68 D9 DA DB C6 72 DD C8 72 DF 6B 04 1F A8 1A 0F 8B 00 8B 00 8C 01 A9
AE AA 2F 6A 16 03 7A 00 92 20 6E 16 02 30 97 BE 19 01
)
C-FORM-TABLE "~S redefines the constant ~S. Its old value was ~S."
(DEFCONSTANT C-FORM-TABLE
(LET ((HASHTABLE (MAKE-HASH-TABLE :TEST #'EQ)))
(MAPC
#'(LAMBDA (ACONS) (SETF (GETHASH (CAR ACONS) HASHTABLE) (CDR ACONS)))
`((QUOTE . C-QUOTE) (PROGN . C-PROGN)
(LET . ,#'(LAMBDA NIL (C-LET/LET* NIL)))
(LET* . ,#'(LAMBDA NIL (C-LET/LET* T))) (IF . C-IF) (SETQ . C-SETQ)
(BLOCK . C-BLOCK) (RETURN-FROM . C-RETURN-FROM) (TAGBODY . C-TAGBODY)
(GO . C-GO) (FUNCTION . C-FUNCTION)
(MULTIPLE-VALUE-BIND . C-MULTIPLE-VALUE-BIND)
(MULTIPLE-VALUE-SETQ . C-MULTIPLE-VALUE-SETQ) (AND . C-AND) (OR . C-OR)
(WHEN . C-WHEN) (UNLESS . C-UNLESS) (COND . C-COND) (PSETQ . C-PSETQ)
(MULTIPLE-VALUE-CALL . C-MULTIPLE-VALUE-CALL) (PROG1 . C-PROG1)
(PROG2 . C-PROG2) (THE . C-THE) (CATCH . C-CATCH) (THROW . C-THROW)
(UNWIND-PROTECT . C-UNWIND-PROTECT) (PROGV . C-PROGV)
(MULTIPLE-VALUE-LIST . C-MULTIPLE-VALUE-LIST)
(MULTIPLE-VALUE-PROG1 . C-MULTIPLE-VALUE-PROG1) (FLET . C-FLET)
(LABELS . C-LABELS) (MACROLET . C-MACROLET)
(COMPILER-LET . C-COMPILER-LET) (EVAL-WHEN . C-EVAL-WHEN)
(DECLARE . C-DECLARE) (LOAD-TIME-VALUE . C-LOAD-TIME-VALUE)
(CASE . C-CASE) (FUNCALL . C-FUNCALL) (%FUNCALL . C-FUNCALL)
(APPLY . C-APPLY) (+ . C-PLUS) (- . C-MINUS) (SVSTORE . C-SVSTORE)
(EQ . C-EQ) (EQL . C-EQL) (EQUAL . C-EQUAL) (MAPCAR . C-MAPCAR)
(MAPLIST . C-MAPLIST) (MAPC . C-MAPC) (MAPL . C-MAPL)
(MAPCAN . C-MAPCAN) (MAPCON . C-MAPCON) (MAPCAP . C-MAPCAP)
(MAPLAP . C-MAPLAP) (TYPEP . C-TYPEP)
) )
HASHTABLE
))
WARN #.#'EQ #1=(QUOTE . C-QUOTE) #2=(PROGN . C-PROGN) LET
#Y(#:TOP-LEVEL-FORM-104-1 #11Y(00 00 00 00 00 01 5B 2D 00 19 01) C-LET/LET*)
LET*
#Y(#:TOP-LEVEL-FORM-104-2 #11Y(00 00 00 00 00 01 5C 2D 00 19 01) C-LET/LET*)
#3=((IF . C-IF) (SETQ . C-SETQ) (BLOCK . C-BLOCK)
(RETURN-FROM . C-RETURN-FROM) (TAGBODY . C-TAGBODY) (GO . C-GO)
(FUNCTION . C-FUNCTION) (MULTIPLE-VALUE-BIND . C-MULTIPLE-VALUE-BIND)
(MULTIPLE-VALUE-SETQ . C-MULTIPLE-VALUE-SETQ) (AND . C-AND) (OR . C-OR)
(WHEN . C-WHEN) (UNLESS . C-UNLESS) (COND . C-COND) (PSETQ . C-PSETQ)
(MULTIPLE-VALUE-CALL . C-MULTIPLE-VALUE-CALL) (PROG1 . C-PROG1)
(PROG2 . C-PROG2) (THE . C-THE) (CATCH . C-CATCH) (THROW . C-THROW)
(UNWIND-PROTECT . C-UNWIND-PROTECT) (PROGV . C-PROGV)
(MULTIPLE-VALUE-LIST . C-MULTIPLE-VALUE-LIST)
(MULTIPLE-VALUE-PROG1 . C-MULTIPLE-VALUE-PROG1) (FLET . C-FLET)
(LABELS . C-LABELS) (MACROLET . C-MACROLET)
(COMPILER-LET . C-COMPILER-LET) (EVAL-WHEN . C-EVAL-WHEN)
(DECLARE . C-DECLARE) (LOAD-TIME-VALUE . C-LOAD-TIME-VALUE)
(CASE . C-CASE) (FUNCALL . C-FUNCALL) (%FUNCALL . C-FUNCALL)
(APPLY . C-APPLY) (+ . C-PLUS) (- . C-MINUS) (SVSTORE . C-SVSTORE)
(EQ . C-EQ) (EQL . C-EQL) (EQUAL . C-EQUAL) (MAPCAR . C-MAPCAR)
(MAPLIST . C-MAPLIST) (MAPC . C-MAPC) (MAPL . C-MAPL)
(MAPCAN . C-MAPCAN) (MAPCON . C-MAPCON) (MAPCAP . C-MAPCAP)
(MAPLAP . C-MAPLAP) (TYPEP . C-TYPEP)
) )
#Y(#:TOP-LEVEL-FORM-105 #12Y(00 00 00 00 00 01 D4 30 0B 00 19 01)
#Y(#:TOP-LEVEL-FORM-105-1
#26Y(00 01 00 00 00 02 A9 84 55 08 A9 63 00 36 01 84 69 03 00 19 02 D4 2D
01 19 02
)
C-FORM-TABLE COMPILER-ERROR
) )
#Y(#:TOP-LEVEL-FORM-106 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
C-FORM REMOVE-OLD-DEFINITIONS
#Y(C-FORM
#244Y(00 01 00 01 00 08 94 10 00 37 04 02 0E 01 10 01 C0 4A 80 CE 0E 00
1F 36 0E 00 70 A8 86 2D 80 B3 A8 2D 06 3E 03 89 02 80 5A AB 63 07
36 01 69 69 89 00 3D AC 83 5C 3E AC 2D 09 16 05 4B 1A 80 A2 63 00
2D 03 4B 1A 80 9A 2C 04 4B 1A 80 94 63 00 85 2D 6D 63 00 85 2F 70
63 00 85 43 6B 63 00 85 2E 66 63 00 85 48 61 D9 63 00 2E 02 4B 1A
80 72 14 34 00 1A 45 63 00 63 08 69 5E 36 01 26 FF 86 1A FF B7 94
25 0A 22 63 00 63 08 69 5E 36 01 26 FF 74 1A 18 DF AC 73 02 0E 00
71 2E 0C 1A 0D AB A9 0E 00 71 2B 03 0D 1A 03 E2 2D 0F 16 04 4B 1A
31 E5 DF AA 73 02 0E 00 71 6B 02 1F 36 01 26 FF 45 1A 1C E7 A9 E9
5B 30 54 E7 A9 E8 5D 16 30 54 15 1A 1D 92 1F 05 8B 00 23 10 56 E6
A9 2E 02 16 01 4B 14 0E 01 1B 08 E7 A9 E8 30 53 54 1C 54 15 12 02
19 03
)
*FORM* *FOR-VALUE* C-ERROR C-VAR C-CONST "Invalid form: ~S" FENV-SEARCH
C-FORM-TABLE *FENV* C-GLOBAL-FUNCTION-CALL
#S(HASH-TABLE EQ (LOCAL . 25.) (GLOBAL . 14.) (MACRO . 1.)) FUNCTION
C-FUNCALL-NOTINLINE C-LOCAL-FUNCTION-CALL C-FORM COMPILER-ERROR LAMBDA
%FUNCALL "Not the name of a function: ~S" ANODE 2. 3. (NIL)
) )
#Y(#:TOP-LEVEL-FORM-107 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
C-NIL REMOVE-OLD-DEFINITIONS
#Y(C-NIL #14Y(00 00 00 00 00 01 5B D4 D5 2B 03 02 19 01) (NIL) ((NIL))
MK-ANODE
) )
#Y(#:TOP-LEVEL-FORM-108 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
C-CONST REMOVE-OLD-DEFINITIONS
#Y(C-CONST
#22Y(00 00 00 00 00 01 D4 D5 D4 63 02 67 03 73 02 73 01 2B 03 04 19 01)
CONST (NIL) *FORM* NEW-CONST MK-ANODE
) )
#Y(#:TOP-LEVEL-FORM-109 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
C-VAR REMOVE-OLD-DEFINITIONS
#Y(C-VAR
#311Y(00 01 00 00 00 02 A9 2D 00 3E 03 89 02 14 D5 AD 2E 02 0E 03 1C 0A
AC 63 04 D9 36 02 2F E0 0F 04 C4 EC 94 25 07 81 09 AE 59 01 1A 23
00 1A 0B E0 E1 B1 67 0E E3 B3 85 A1 73 9D 14 2B 04 10 1A 1E AC 67
08 DD 0E 0A 1C 06 DD AA DF 86 53 59 00 14 00 72 0E 0A 1C 0F DD AB
DF 85 53 53 E5 9A 14 73 02 59 01 1A 01 00 14 2B 03 12 19 06 02 1A
19 E0 AC 67 13 73 02 E8 E0 AD 67 13 73 02 E9 31 03 1F 1A 0E DD 0E
0A 1B 65 00 14 00 72 0E 0A 1B 60 00 14 2B 03 12 19 05 AA 59 01 1A
18 5D 16 AC 63 17 63 18 73 04 59 01 1A 13 16 01 1A 80 80 DD 0E 0A
1B 64 00 14 00 72 0E 0A 1B 61 00 14 66 03 12 A8 DD AC 5D 19 30 53
72 DD AC 5D 19 AB 30 54 16 01 0E 0A 1C 80 58 0E 1A 1B 80 53 DD AB
5D 1B 5C 30 54 DD AB 5D 1C 6A 53 67 1D 0E 1E 21 07 DD AB 5D 1F 5C
30 54 DD AB 5D 1F 86 53 32 63 17 8A 00 25 A8 DD AD 5D 20 30 53 21
FF 9E 8B 00 5D 21 A9 30 57 16 01 1C 0B 8B 00 5D 21 A9 DF 5C 30 54
16 01 7A 00 89 00 5B 5D 22 5D 23 2E 24 16 01 15 19 05 5D 22 D4 2E
24 19 05
)
VENV-SEARCH
"~S is neither declared nor bound,~@
it will be treated as if it were declared SPECIAL."
C-WARN *COMPILING-FROM-FILE* *UNKNOWN-FREE-VARS* #.#'EQ SPECIAL
#S(HASH-TABLE EQ (T . 136.) (LOCAL . 93.) (SPECIAL . 27.))
MAKE-SPECIAL-VAR VAR *FOR-VALUE* 3. CONST :VALUE C-CONSTANT-VALUE :FORM
MAKE-CONST GETVALUE MK-ANODE NEW-CONST (PUSH) ((SVREF)) GET *VENVC*
*STACKZ* 5. *NO-CODE* 6. 10. STACKZ-FUN *FUNC* 9. 11. FNODE C-VAR
"INVISIBLE" COMPILER-ERROR
) )
#Y(#:TOP-LEVEL-FORM-110 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
C-VARSET REMOVE-OLD-DEFINITIONS
#Y(C-VARSET
#269Y(00 02 00 00 00 03 AA 2D 00 3E 03 89 02 06 D5 AE 2E 02 C1 EC 94 25
04 80 ED 00 1A 15 DD B1 2E 02 C8 1A 1B AD 67 05 DA 5B DB AB DC 85
53 6B B0 59 01 72 DB AB DC 85 53 64 DF B1 73 02 59 01 14 2B 03 0C
19 07 DA 5B 02 72 E1 E2 AD 67 0F 73 02 E4 E2 AE 67 0F 73 02 E5 6B
04 1F 2B 03 0C 19 06 DB AB E9 5C 30 54 0E 16 1C 26 1A 80 97 16 01
1A 80 7D DA 5B AB 59 01 72 E6 AC 63 13 63 14 73 04 73 01 66 03 0C
DB AB E9 86 53 55 0E 16 1B 80 74 DB AB DC 5B 30 54 AD 93 72 A8 DB
AD 5D 17 30 53 72 DB AD 5D 17 AB 30 54 16 02 DB AB 5D 18 6A 53 67
19 0E 1A 21 39 DB AB 5D 1B 5C 30 54 63 13 8A 00 25 A8 DB AD 5D 1C
30 53 21 FF A1 8B 00 5D 1D A9 30 57 16 01 1C 0B 8B 00 5D 1D A9 DC
5C 30 54 16 01 7A 00 89 00 5B 5D 1E 5D 1F 2E 20 16 01 5D 21 DB AC
5D 22 6A 53 36 05 6A 6E DB AC 5D 22 AB 30 54 16 01 15 19 06 5D 1E
D4 2E 20 19 06
)
VENV-SEARCH
"~S is neither declared nor bound,~@
it will be treated as if it were declared SPECIAL."
C-WARN SPECIAL #S(HASH-TABLE EQ (T . 90.) (LOCAL . 45.) (SPECIAL . 12.))
MAKE-SPECIAL-VAR VARSET VAR 3.
"The constant ~S may not be assigned to.~@
The assignment will be ignored."
((VALUES1)) SETVALUE MK-ANODE (PUSH) CONST NEW-CONST (PUSH) ((SVSET)) SET
*VENVC* *STACKZ* 5. *NO-CODE* 7. 10. STACKZ-FUN *FUNC* 9. 11. FNODE
C-VARSET "INVISIBLE" COMPILER-ERROR
#Y(C-VARSET-1
#19Y(00 01 00 00 00 02 8B 01 D4 A9 D5 6A 53 63 02 2E 03 19 03) VAR 10.
*STACKZ* MYTAILP
)
8.
) )
#Y(#:TOP-LEVEL-FORM-111 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
C-NORMAL-FUNCTION-CALL REMOVE-OLD-DEFINITIONS
#Y(C-NORMAL-FUNCTION-CALL
#95Y(00 01 00 00 00 02 63 00 D5 2E 02 0E 00 71 6A 63 0E 03 10 03 0E 00 71
D8 73 01 8A 01 19 8B 01 7A 02 A8 D9 68 06 A8 7B 02 DB 7B 02 D5 0E 03
55 0F 03 16 02 89 01 67 97 25 08 09 C7 1A 0A C8 1A 07 C9 1A 04 E0 AE
59 02 14 B0 67 0D 73 01 6B 02 20 7B 00 E0 E2 AA 6A 65 2B 03 0F 16 02
11 19 03
)
*FORM* 1. TEST-LIST *STACKZ* (CALLP) ONE C-FORM (PUSH)
#S(HASH-TABLE EQ (2. . 7.) (1. . 4.) (0. . 1.)) (CALL0) (CALL1) (CALL2)
CALL NEW-CONST (T . T) MK-ANODE
) )
#Y(#:TOP-LEVEL-FORM-112 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
TEST-ARGUMENT-SYNTAX REMOVE-OLD-DEFINITIONS
#Y(TEST-ARGUMENT-SYNTAX
#210Y(00 08 00 00 00 00 B0 86 34 06 B0 2F C5 54 1C 06 D4 B0 B2 2B 03 01
B0 6A 63 AF AF 6B 02 33 B0 AA 88 01 2F 30 89 06 09 89 05 06 A9 A9
88 01 2F 24 8A 05 34 A9 A9 87 01 2F 31 89 06 31 A9 A9 79 01 34 01
A8 B3 77 C4 0A A9 85 AA 25 DB B2 B4 2B 03 03 00 19 0B D6 B2 AB 89
09 01 9A 14 B4 AD 6A 28 B5 AE 2B 07 03 1A 6A C2 19 0B C3 19 0B C4
19 0B B2 AC 5B 8A 02 80 55 8B 02 A8 80 08 0F A8 2D 09 EA 14 85 A1
20 DE 8B 04 B7 2B 03 03 C4 19 0F 75 02 8A 02 24 1A 2C E1 A9 B6 B2
6A 63 CC 52 14 B3 2B 05 01 19 0E A8 24 0B 0C 95 54 70 80 08 5D 95
54 70 7F 09 5A 89 02 0A A8 B1 E0 36 02 83 DC 02 92 EB 16 01 94 54
54 EC 89 02 FF AB 89 00 47 C3 19 0E
)
"argument list to function ~S is dotted: ~S" C-ERROR
"~S called with ~S arguments, but it requires ~
~:[~:[from ~S to ~S~;~S~]~;at least ~*~S~] arguments."
C-WARN NO-KEYS STATIC-KEYS DYNAMIC-KEYS
"keyword arguments to function ~S should occur pairwise: ~S" C-CONSTANTP
C-CONSTANT-VALUE "argument ~S to function ~S is not a keyword"
:ALLOW-OTHER-KEYS #.#'EQ
"keyword ~S is not allowed for function ~S.~
~%The only allowed keyword~:[s are ~{~S~#[~; and ~S~:;, ~]~}~; is ~{~S~}~]."
1.
) )
#Y(#:TOP-LEVEL-FORM-113 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
C-DIRECT-FUNCTION-CALL REMOVE-OLD-DEFINITIONS
#Y(C-DIRECT-FUNCTION-CALL
#812Y(00 09 00 00 00 00 5B 8A 03 04 9B 25 01 20 BE 1A 1E 75 00 C0 1A 19
C1 1A 16 C2 1A 13 02 10 07 00 10 06 B1 34 00 12 02 DC 9E 72 2D 09
19 0C C3 14 0E 06 1B 04 92 54 1C 64 B3 6A 63 B2 B2 6B 02 33 AA 5B
0E 0A 10 0A DF AF AF 6B 01 32 1A 80 41 AD AF 6B 01 34 E6 A9 73 02
7B 04 A8 0E 0A 55 0F 0A 16 01 8A 0E 80 B2 1A 3B E8 7B 03 D3 1A 80
76 8B 14 7A 15 A8 E0 68 09 B0 E1 AA E2 6A 53 2E 0F F2 A8 7B 07 16
02 E4 7B 05 E5 0E 0A 55 0F 0A 7C 01 A9 A9 88 01 30 59 16 02 AD AF
87 01 2E FF B0 8A 0E 80 75 89 0B 80 4D 8A 12 FF BD 0E 0A 10 0A BD
8A 00 22 8B 00 7A 01 E0 68 09 B1 E1 AA E2 6A 53 2E 0F F3 A8 7B 08
16 01 5D 16 7B 07 E5 0E 0A 55 0F 0A 89 00 5E 5D 17 B3 B3 6B 01 34
73 02 7B 07 16 01 11 03 18 14 7B 03 E5 0E 0A 55 0F 0A 8A 0D 81 C3
1A 28 8A 12 21 8B 12 7A 13 E0 68 09 AD E1 AA E2 6A 53 2E 0F EF A8
7B 04 16 01 E7 7B 03 E5 0E 0A 55 0F 0A 89 12 5F 8A 0D 81 99 B4 6A
63 A8 5B B7 1A 13 CA 1A 80 41 8B 00 A8 7D 04 14 5C 73 03 7B 02 16
01 7A 00 92 20 6E 16 01 A8 2F CC 16 01 EA 5B 8A 15 80 48 8B 15 7A
16 67 19 A8 AB 5D 1A 36 02 69 E3 92 54 54 70 8B 18 7A 19 DF 0E 0A
55 10 0A AB 89 05 FF BC 00 14 68 09 B7 E1 AA E2 6A 53 2E 0F F9 5C
99 54 70 AA 63 0A 73 04 7B 08 16 01 11 94 54 71 5B 2F D1 16 04 89
15 FF B8 A8 78 65 00 DF DF 5B AB 8A 00 80 5A 8B 00 92 53 1C 80 4B
92 54 53 1C 0D 92 54 70 B0 E5 AF 6B 02 34 88 01 2B 39 92 54 54 70
AE 1A 0F 16 02 1A 2E A9 93 53 54 54 70 82 1B 73 7A 00 A8 96 22 71
16 02 92 54 54 54 70 AD 2F D1 92 54 54 70 7B 0B 92 54 53 1C 06 5D
1C 7B 0B 7C 04 A8 5B 2F D1 16 01 7A 00 89 00 FF A6 16 01 AB 78 65
03 14 8A 00 80 59 8B 00 92 53 1C 80 4A 92 54 53 1C 08 92 54 70 AC
88 01 2B 3D 92 54 54 70 AE 1A 0F 16 02 1A 32 A9 93 53 54 54 70 82
1B 73 7A 00 A8 96 22 71 16 02 92 54 53 1C 06 5D 1D 7B 02 7C 03 92
54 54 54 70 B0 AD 6B 01 34 2F D1 92 54 54 70 7B 02 A8 5B 2F D1 16
01 7A 00 89 00 FF A7 16 01 AB 78 65 03 AD AA 6B 01 34 A8 AC 88 01
2E 0A E6 A9 AD 6B 01 34 73 02 7B 0A AC 5B 1A 28 7E 01 00 53 1C 20
92 54 54 54 70 AB 2F D1 92 54 54 70 7B 0C 92 54 53 1C 0D 5D 1E 93
54 70 AE 6B 01 34 73 02 7B 0C 7A 01 A9 84 B6 54 16 03 A8 B2 77 CB
09 16 05 A8 0E 0A 55 0F 0A 16 01 AB B3 6E 00 77 CB 03 11 8A 05 80
5F 5D 1F A9 88 00 26 80 57 5B A9 5B 1A 0F 7E 01 00 E1 A9 86 57 05
A8 67 20 7B 02 7A 01 A9 84 B6 6D 16 02 A8 78 65 00 5B 43 21 31 AA
2A 22 01 10 23 5E 16 9A 35 00 3F 11 ED 44 5D 24 5B AA 1A 0D 8B 00
5D 25 A9 73 02 7B 02 16 01 7A 00 92 20 70 16 01 A8 2F CC 16 01 72
2D 26 19 12 1B 5C 16 02 5D 27 B7 73 02 AA AA 2B 03 28 19 10
)
(T . T)
#S(HASH-TABLE EQ (LOG10 . 12.) (LOG2 . 12.) (BYTE-POSITION . 12.)
(BYTE-SIZE . 12.) (BYTE . 12.) (FLOAT . 12.) (ATANH . 12.)
(ACOSH . 12.) (ASINH . 12.) (TANH . 12.) (COSH . 12.) (SINH . 12.)
(ATAN . 12.) (ACOS . 12.) (ASIN . 12.) (CIS . 12.) (TAN . 12.)
(COS . 12.) (SIN . 12.) (SIGNUM . 12.) (PHASE . 12.) (ABS . 12.)
(SQRT . 12.) (LOG . 12.) (EXPT . 12.) (EXP . 12.) (FROUND . 12.)
(FTRUNCATE . 12.) (FCEILING . 12.) (FFLOOR . 12.) (GENSYM . 12.)
(SPECIAL-VARIABLE-P . 12.) (KEYWORDP . 12.) (SYMBOL-PLIST . 12.)
(SYMBOL-PACKAGE . 12.) (GET-PROPERTIES . 12.) (GETF . 12.) (GET . 12.)
(FILE-LENGTH . 12.) (STREAM-ELEMENT-TYPE . 12.)
(OUTPUT-STREAM-P . 12.) (INPUT-STREAM-P . 12.)
(MAKE-BUFFERED-OUTPUT-STREAM . 12.) (MAKE-BUFFERED-INPUT-STREAM . 12.)
(MAKE-STRING-PUSH-STREAM . 12.) (MAKE-STRING-OUTPUT-STREAM . 12.)
(STRING-INPUT-STREAM-INDEX . 12.) (MAKE-STRING-INPUT-STREAM . 12.)
(MAKE-ECHO-STREAM . 12.) (MAKE-TWO-WAY-STREAM . 12.)
(MAKE-CONCATENATED-STREAM . 12.) (MAKE-BROADCAST-STREAM . 12.)
(MAKE-SYNONYM-STREAM . 12.) (CONCATENATE . 12.) (REVERSE . 12.)
(LENGTH . 12.) (COPY-SEQ . 12.) (SUBSEQ . 12.) (ELT . 12.)
(SEQUENCEP . 12.) (%MAKE-CLOSURE . 12.) (MAKE-CODE-VECTOR . 12.)
(CLOSURE-CONSTS . 12.) (CLOSURE-CODEVEC . 12.) (CLOSURE-NAME . 12.)
(%STRUCTURE-TYPE-P . 12.) (%COPY-STRUCTURE . 12.)
(%MAKE-STRUCTURE . 12.) (%STRUCTURE-REF . 12.) (%RECORD-LENGTH . 12.)
(%RECORD-REF . 12.) (COERCE . 12.) (TYPE-OF . 12.) (COMMONP . 12.)
(FUNCTIONP . 12.) (COMPILED-FUNCTION-P . 12.) (EQUALP . 12.)
(EQUAL . 12.) (FILE-AUTHOR . 12.) (FILE-WRITE-DATE . 12.)
(DIRECTORY . 12.) (PROBE-FILE . 12.) (TRUENAME . 12.)
(NAMESTRING . 12.) (MAKE-PATHNAME . 12.) (ENOUGH-NAMESTRING . 12.)
(MERGE-PATHNAMES . 12.) (HOST-NAMESTRING . 12.)
(DIRECTORY-NAMESTRING . 12.) (FILE-NAMESTRING . 12.)
(PATHNAME-VERSION . 12.) (PATHNAME-TYPE . 12.) (PATHNAME-NAME . 12.)
(PATHNAME-DIRECTORY . 12.) (PATHNAME-DEVICE . 12.)
(PATHNAME-HOST . 12.) (PATHNAME . 12.) (PARSE-NAMESTRING . 12.)
(FIND-ALL-SYMBOLS . 12.) (FIND-SYMBOL . 12.) (LIST-ALL-PACKAGES . 12.)
(PACKAGE-SHADOWING-SYMBOLS . 12.) (PACKAGE-USED-BY-LIST . 12.)
(PACKAGE-USE-LIST . 12.) (PACKAGE-NICKNAMES . 12.)
(PACKAGE-NAME . 12.) (FIND-PACKAGE . 12.) (%%TIME . 12.)
(GET-INTERNAL-REAL-TIME . 12.) (GET-INTERNAL-RUN-TIME . 12.)
(GET-UNIVERSAL-TIME . 12.) (PAIRLIS . 12.) (TAILP . 12.) (LDIFF . 12.)
(BUTLAST . 12.) (REVAPPEND . 12.) (COPY-TREE . 12.) (COPY-ALIST . 12.)
(COPY-LIST . 12.) (APPEND . 12.) (LAST . 12.) (NTHCDR . 12.)
(REST . 12.) (TENTH . 12.) (NINTH . 12.) (EIGHTH . 12.)
(SEVENTH . 12.) (SIXTH . 12.) (FIFTH . 12.) (FOURTH . 12.)
(THIRD . 12.) (SECOND . 12.) (FIRST . 12.) (NTH . 12.)
(LIST-LENGTH . 12.) (CDDDDR . 12.) (CDDDAR . 12.) (CDDADR . 12.)
(CDDAAR . 12.) (CDADDR . 12.) (CDADAR . 12.) (CDAADR . 12.)
(CDAAAR . 12.) (CADDDR . 12.) (CADDAR . 12.) (CADADR . 12.)
(CADAAR . 12.) (CAADDR . 12.) (CAADAR . 12.) (CAAADR . 12.)
(CAAAAR . 12.) (CDDDR . 12.) (CDDAR . 12.) (CDADR . 12.) (CDAAR . 12.)
(CADDR . 12.) (CADAR . 12.) (CAADR . 12.) (CAAAR . 12.) (CDDR . 12.)
(CDAR . 12.) (CADR . 12.) (CAAR . 12.) (CDR . 12.) (CAR . 12.)
(LINE-POSITION . 12.) (GET-DISPATCH-MACRO-CHARACTER . 12.)
(GET-MACRO-CHARACTER . 12.) (SXHASH . 12.) (HASH-TABLE-ITERATOR . 12.)
(HASH-TABLE-COUNT . 12.) (GETHASH . 12.) (MAKE-HASH-TABLE . 12.)
(CONSTANTP . 12.) (MACRO-FUNCTION . 12.) (VALUES-LIST . 12.)
(FBOUNDP . 12.) (BOUNDP . 12.) (SYMBOL-FUNCTION . 12.)
(SYMBOL-VALUE . 12.) (MAKE-SYMBOL . 12.) (STRING-CONCAT . 12.)
(SUBSTRING . 12.) (NAME-CHAR . 12.) (STRING . 12.)
(STRING-CAPITALIZE . 12.) (STRING-DOWNCASE . 12.)
(STRING-UPCASE . 12.) (STRING-BOTH-TRIM . 12.)
(SEARCH-STRING-EQUAL . 12.) (SEARCH-STRING= . 12.)
(STRING-NOT-LESSP . 12.) (STRING-NOT-GREATERP . 12.)
(STRING-GREATERP . 12.) (STRING-LESSP . 12.) (STRING-NOT-EQUAL . 12.)
(STRING-EQUAL . 12.) (STRING>= . 12.) (STRING<= . 12.) (STRING> . 12.)
(STRING< . 12.) (STRING/= . 12.) (STRING= . 12.) (SCHAR . 12.)
(CHAR . 12.) (CHARACTER . 12.) (MAKE-ARRAY . 12.) (FILL-POINTER . 12.)
(ARRAY-HAS-FILL-POINTER-P . 12.) (SBIT . 12.) (BIT . 12.)
(ARRAY-ROW-MAJOR-INDEX . 12.) (ARRAY-IN-BOUNDS-P . 12.)
(ARRAY-TOTAL-SIZE . 12.) (ARRAY-DIMENSIONS . 12.)
(ARRAY-DIMENSION . 12.) (SVREF . 12.) (AREF . 12.) (SUBR-INFO . 12.)
(DECIMAL-STRING . 9.) (SYMBOL-NAME . 9.) (MAKE-LOAD-TIME-EVAL . 9.)
(SOFTWARE-VERSION . 9.) (SOFTWARE-TYPE . 9.)
(LISP-IMPLEMENTATION-VERSION . 9.) (LISP-IMPLEMENTATION-TYPE . 9.)
(ACONS . 9.) (MAKE-LIST . 9.) (LIST* . 9.) (LIST . 9.) (CONS . 9.)
(VALUES . 9.) (MAKE-STRING . 9.) (VECTOR . 9.) (EXQUO . 4.) (! . 4.)
(DEPOSIT-FIELD . 4.) (DPB . 4.) (MASK-FIELD . 4.) (LDB-TEST . 4.)
(LDB . 4.) (INTEGER-LENGTH . 4.) (LOGCOUNT . 4.) (ASH . 4.)
(LOGBITP . 4.) (LOGTEST . 4.) (LOGNOT . 4.) (BOOLE . 4.)
(LOGORC2 . 4.) (LOGORC1 . 4.) (LOGANDC2 . 4.) (LOGANDC1 . 4.)
(LOGNOR . 4.) (LOGNAND . 4.) (LOGEQV . 4.) (LOGAND . 4.) (LOGXOR . 4.)
(LOGIOR . 4.) (IMAGPART . 4.) (REALPART . 4.) (COMPLEX . 4.)
(INTEGER-DECODE-FLOAT . 4.) (FLOAT-PRECISION . 4.) (FLOAT-DIGITS . 4.)
(FLOAT-SIGN . 4.) (FLOAT-RADIX . 4.) (SCALE-FLOAT . 4.)
(DECODE-FLOAT . 4.) (REM . 4.) (MOD . 4.) (ROUND . 4.) (TRUNCATE . 4.)
(CEILING . 4.) (FLOOR . 4.) (DENOMINATOR . 4.) (NUMERATOR . 4.)
(RATIONALIZE . 4.) (RATIONAL . 4.) (ISQRT . 4.) (LCM . 4.) (GCD . 4.)
(CONJUGATE . 4.) (1- . 4.) (1+ . 4.) (/ . 4.) (* . 4.) (- . 4.)
(+ . 4.) (MIN . 4.) (MAX . 4.) (>= . 4.) (<= . 4.) (> . 4.) (< . 4.)
(/= . 4.) (= . 4.) (EVENP . 4.) (ODDP . 4.) (MINUSP . 4.) (PLUSP . 4.)
(ZEROP . 4.) (SIMPLE-BIT-VECTOR-P . 4.) (SIMPLE-STRING-P . 4.)
(SIMPLE-VECTOR-P . 4.) (VECTORP . 4.) (BIT-VECTOR-P . 4.)
(SIMPLE-ARRAY-P . 4.) (ARRAYP . 4.) (PACKAGEP . 4.) (CHARACTERP . 4.)
(PATHNAMEP . 4.) (HASH-TABLE-P . 4.) (READTABLEP . 4.)
(RANDOM-STATE-P . 4.) (STREAMP . 4.) (COMPLEXP . 4.)
(LONG-FLOAT-P . 4.) (DOUBLE-FLOAT-P . 4.) (SINGLE-FLOAT-P . 4.)
(SHORT-FLOAT-P . 4.) (FLOATP . 4.) (RATIONALP . 4.) (FIXNUMP . 4.)
(INTEGERP . 4.) (LISTP . 4.) (CLOSUREP . 4.) (NOT . 4.) (NULL . 4.)
(NUMBERP . 4.) (STRINGP . 4.) (SYMBOLP . 4.) (ATOM . 4.) (CONSP . 4.)
(EQL . 4.) (EQ . 4.) (IDENTITY . 4.) (ENDP . 4.) (SPECIAL-FORM-P . 4.)
(CHAR-BIT . 4.) (CHAR-NAME . 4.) (INT-CHAR . 4.) (CHAR-INT . 4.)
(DIGIT-CHAR . 4.) (CHAR-DOWNCASE . 4.) (CHAR-UPCASE . 4.)
(MAKE-CHAR . 4.) (CODE-CHAR . 4.) (CHAR-FONT . 4.) (CHAR-BITS . 4.)
(CHAR-CODE . 4.) (CHAR-NOT-LESSP . 4.) (CHAR-NOT-GREATERP . 4.)
(CHAR-GREATERP . 4.) (CHAR-LESSP . 4.) (CHAR-NOT-EQUAL . 4.)
(CHAR-EQUAL . 4.) (CHAR>= . 4.) (CHAR<= . 4.) (CHAR> . 4.)
(CHAR< . 4.) (CHAR/= . 4.) (CHAR= . 4.) (ALPHANUMERICP . 4.)
(DIGIT-CHAR-P . 4.) (BOTH-CASE-P . 4.) (LOWER-CASE-P . 4.)
(UPPER-CASE-P . 4.) (ALPHA-CHAR-P . 4.) (STRING-CHAR-P . 4.)
(GRAPHIC-CHAR-P . 4.) (STANDARD-CHAR-P . 4.) (ADJUSTABLE-ARRAY-P . 4.)
(ARRAY-RANK . 4.) (ARRAY-ELEMENT-TYPE . 4.) (%FUNTABREF . 4.)
)
(NIL) (NIL) (T) (T . T) *FOR-VALUE* *NO-CODE* PROGN C-FORM *STACKZ* 0.
ONE ANODE 2. SECLASS-OR-2 (PUSH) 1. PUSH-UNBOUND (PUSH) (NIL) (PUSH)
(PUSH) LIST (PUSH) C-CONSTANT-VALUE #.#'EQ ANODES-COMMUTE (PUSH) (PUSH)
STORE
#Y(C-DIRECT-FUNCTION-CALL-1
#20Y(00 01 00 00 00 02 D4 AA 30 57 51 1D 05 A9 2D 01 19 02 19 02)
ANODE ANODE-CONSTANTP
)
ANODE-CONSTANT-VALUE TRY-EVAL
#Y(C-DIRECT-FUNCTION-CALL-2 #9Y(00 00 00 00 01 16 00 45 00) NIL)
*ERROR-HANDLER* VALUES QUOTE C-GLOBAL-FUNCTION-CALL-FORM DIRECT-CALL
MK-ANODE
) )
#Y(#:TOP-LEVEL-FORM-114 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
C-GLOBAL-FUNCTION-CALL-FORM REMOVE-OLD-DEFINITIONS
#Y(C-GLOBAL-FUNCTION-CALL-FORM
#17Y(00 01 00 00 00 02 93 10 00 0E 00 70 2D 01 11 19 02) *FORM*
C-GLOBAL-FUNCTION-CALL
) )
#Y(#:TOP-LEVEL-FORM-115 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
C-GLOBAL-FUNCTION-CALL REMOVE-OLD-DEFINITIONS
#Y(C-GLOBAL-FUNCTION-CALL
#802Y(00 01 00 00 00 02 63 00 D5 2E 02 0E 03 1C 82 D3 A9 83 54 13 A9 63
04 D9 36 02 83 DC 0A A9 63 06 D9 36 02 2F E0 0F 06 A9 24 07 13 63
00 6A 63 DC 88 01 2B 0A 0E 00 54 70 A8 7F 09 27 16 01 A9 23 10 05
A9 24 11 80 52 90 09 0E 00 71 88 00 26 80 48 DE E6 AB 23 10 1F AB
23 11 1E 00 14 5B 0E 00 71 1A 27 DE DF E0 E1 AC 67 0E 73 02 73 02
73 03 2D 0F 16 01 1A 48 D1 1A 63 D2 1A 60 8B 00 E1 A9 67 0E 73 02
7B 02 16 01 7A 00 92 20 6F 16 01 A8 2F CC 16 01 72 73 03 2D 0F 93
25 15 82 45 90 09 0E 00 71 88 00 26 82 3B A9 5B 0E 00 71 1A 82 23
9B 25 18 81 E2 9B 25 19 10 03 1A 1A 0E 03 1B 1A 0A 03 1E 1A 21 2C
22 19 0B 03 1C 14 0E 1D 1B 04 92 54 1C 6D B2 24 1F 15 63 1D 24 20
10 AF 5D 21 87 01 2B 61 03 23 14 9B 72 2D 0F 19 0B A8 5B 0E 24 10
24 8A 0D 2C 1A 0D 5D 27 7B 03 D5 0E 24 55 0F 24 8A 0D 1D 8B 0D 7A
0E 5D 20 68 0F AD 5D 25 AA DC 6A 53 2E 26 EF A8 7B 04 16 01 89 0D
59 89 0D 63 AB A2 25 28 80 F5 03 29 1A 80 F4 03 2A 1A 80 EF 03 2B
1A 80 EA 03 2C 1A 80 E5 03 2D 1A 80 E0 03 2E 1A 80 DB 03 2F 1A 80
D6 03 30 1A 80 D1 03 31 1A 80 CC 03 32 1A 80 C7 03 33 1A 80 C2 03
34 1A 80 BD 03 35 1A 80 B8 03 36 1A 80 B3 03 37 1A 80 AE 03 38 1A
80 A9 03 39 1A 80 A4 03 3A 1A 80 9F 03 3B 1A 80 9A 03 3C 1A 80 95
03 3D 1A 80 90 03 3E 1A 80 8B 03 3F 1A 80 86 03 40 1A 80 81 03 41
1A 80 7C 03 42 1A 80 77 03 43 1A 80 72 03 44 1A 80 6D 03 45 1A 80
68 03 46 1A 80 63 03 47 1A 80 5E 03 48 1A 80 59 03 49 1A 80 54 03
4A 1A 80 4F 03 4B 1A 80 4A 03 4C 1A 80 45 03 4D 1A 80 40 03 4E 1A
3C 03 4F 1A 38 B5 23 21 74 B5 23 01 74 5D 50 03 51 1A 10 03 52 1A
26 03 53 1A 22 B5 86 A7 08 5D 54 03 55 14 A1 1A 0B 03 56 1A 12 5D
57 5D 58 B7 30 AC 14 73 02 59 02 1A 04 5D 59 2D 5A 14 77 CB 03 11
5D 5B B5 73 02 AA AA 2B 03 5C 19 0D AC AF 88 01 2F 0F 89 02 FE 79
AE AD AD 6B 02 33 87 01 2F FE 6E 5D 5D B2 B0 AD AF 03 21 52 14 B1
B2 B2 6B 02 33 2B 07 5E B1 2D 5F 19 0A B2 2D 64 1A 23 B1 B4 B0 B0
B0 B0 B1 5C 00 29 01 8A 0D 6D 5D 65 5D 21 BB BA BA 6B 02 34 6B 01
31 B4 63 66 6B 01 34 59 03 14 59 01 0B 00 00 A8 2A 67 01 EA 2B 09
68 19 0C B1 63 60 36 01 69 69 8A 00 80 76 B0 B3 AF AF AF AF B0 B0
66 08 61 A8 23 62 FF B2 A8 23 63 FF AD B3 2D 5F 19 0C B2 B1 AA 5B
2B 04 6D 19 0B 8B 00 E1 A9 67 0E 73 02 7B 02 16 01 7A 00 92 20 6F
16 01 A8 2F CC 16 01 72 0E 16 55 0F 16 0E 00 71 A8 6A 63 AB 7F 17
30 AB 2F 01 3E 06 8A 05 05 B1 98 21 FD B6 0E 03 1C 09 B1 63 69 D9
36 02 2F E3 54 14 8A 00 0D 5D 6A 5D 6B 94 72 73 02 B0 81 6C FF A4
B2 2D 5F 19 0B AB 2D 5F 19 04
)
*FORM* 1. TEST-LIST *COMPILING-FROM-FILE* *KNOWN-FUNCTIONS* #.#'EQ
*UNKNOWN-FUNCTIONS* PROCLAIM 2. C-CONSTANTP EVAL-WHEN (COMPILE)
C-PROCLAIM QUOTE C-CONSTANT-VALUE C-FORM PROVIDE REQUIRE (COMPILE)
C-PROVIDE C-REQUIRE
#S(HASH-TABLE EQ (IMPORT . 2.) (UNUSE-PACKAGE . 2.) (USE-PACKAGE . 2.)
(UNEXPORT . 2.) (EXPORT . 2.) (SHADOWING-IMPORT . 2.) (SHADOW . 2.)
(IN-PACKAGE . 2.) (MAKE-PACKAGE . 2.)
)
*PACKAGE-TASKS* DECLARED-NOTINLINE
#S(HASH-TABLE EQ (ERROR . 383.) (LIST . 383.) (SYMBOL-FUNCTION . 383.)
(EQ . 383.) (%SVSTORE . 383.) (VALUES-LIST . 383.) (CONSP . 383.)
(ATOM . 383.) (CDDDDR . 383.) (CDDDAR . 383.) (CDDADR . 383.)
(CDDAAR . 383.) (CDADDR . 383.) (CDADAR . 383.) (CDAADR . 383.)
(CDAAAR . 383.) (CADDDR . 383.) (CADDAR . 383.) (CADADR . 383.)
(CADAAR . 383.) (CAADDR . 383.) (CAADAR . 383.) (CAAADR . 383.)
(CAAAAR . 383.) (FOURTH . 383.) (THIRD . 383.) (SECOND . 383.)
(CDDDR . 383.) (CDDAR . 383.) (CDADR . 383.) (CDAAR . 383.)
(CADDR . 383.) (CADAR . 383.) (CAADR . 383.) (CAAAR . 383.)
(CDDR . 383.) (CDAR . 383.) (CADR . 383.) (CAAR . 383.)
(VALUES . 383.) (SVREF . 383.) (CONS . 383.) (NULL . 383.)
(NOT . 383.) (REST . 383.) (FIRST . 383.) (CDR . 383.) (CAR . 383.)
)
#S(HASH-TABLE EQ (SYMBOL-FUNCTION . 5.) (SVREF . 5.) (VALUES-LIST . 5.)
(CDDDDR . 5.) (CDDDAR . 5.) (CDDADR . 5.) (CDDAAR . 5.) (CDADDR . 5.)
(CDADAR . 5.) (CDAADR . 5.) (CDAAAR . 5.) (CADDDR . 5.) (CADDAR . 5.)
(CADADR . 5.) (CADAAR . 5.) (CAADDR . 5.) (CAADAR . 5.) (CAAADR . 5.)
(CAAAAR . 5.) (FOURTH . 5.) (THIRD . 5.) (SECOND . 5.) (CDDDR . 5.)
(CDDAR . 5.) (CDADR . 5.) (CDAAR . 5.) (CADDR . 5.) (CADAR . 5.)
(CAADR . 5.) (CAAAR . 5.) (CDDR . 5.) (CDAR . 5.) (CADR . 5.)
(CAAR . 5.) (REST . 5.) (FIRST . 5.) (CDR . 5.) (CAR . 5.) (LIST . 1.)
(EQ . 1.) (CONSP . 1.) (ATOM . 1.) (VALUES . 1.) (CONS . 1.)
(NULL . 1.) (NOT . 1.)
)
(NIL) (T) (T . T) *FOR-VALUE* PROGN VALUES ONE 0. C-NIL PROG1 *STACKZ*
ANODE SECLASS-OR-2 (PUSH)
#S(HASH-TABLE EQ (ERROR . 233.) (LIST . 217.) (SYMBOL-FUNCTION . 213.)
(VALUES-LIST . 209.) (VALUES . 195.) (EQ . 182.) (%SVSTORE . 177.)
(SVREF . 172.) (CONS . 167.) (NULL . 162.) (NOT . 162.) (CONSP . 157.)
(ATOM . 152.) (CDDDDR . 147.) (CDDDAR . 142.) (CDDADR . 137.)
(CDDAAR . 132.) (CDADDR . 127.) (CDADAR . 122.) (CDAADR . 117.)
(CDAAAR . 112.) (FOURTH . 107.) (CADDDR . 107.) (CADDAR . 102.)
(CADADR . 97.) (CADAAR . 92.) (CAADDR . 87.) (CAADAR . 82.)
(CAAADR . 77.) (CAAAAR . 72.) (CDDDR . 67.) (CDDAR . 62.)
(CDADR . 57.) (CDAAR . 52.) (THIRD . 47.) (CADDR . 47.) (CADAR . 42.)
(CAADR . 37.) (CAAAR . 32.) (CDDR . 27.) (CDAR . 22.) (SECOND . 17.)
(CADR . 17.) (CAAR . 12.) (REST . 7.) (CDR . 7.) (FIRST . 2.)
(CAR . 2.)
)
((CAR)) ((CDR)) ((CAR) (CAR)) ((CDR) (CAR)) ((CAR) (CDR)) ((CDR) (CDR))
((CAR) (CAR) (CAR)) ((CDR) (CAR) (CAR)) ((CAR) (CDR) (CAR))
((CDR) (CDR) (CAR)) ((CAR) (CAR) (CDR)) ((CDR) (CAR) (CDR))
((CAR) (CDR) (CDR)) ((CDR) (CDR) (CDR)) ((CAR) (CAR) (CAR) (CAR))
((CDR) (CAR) (CAR) (CAR)) ((CAR) (CDR) (CAR) (CAR))
((CDR) (CDR) (CAR) (CAR)) ((CAR) (CAR) (CDR) (CAR))
((CDR) (CAR) (CDR) (CAR)) ((CAR) (CDR) (CDR) (CAR))
((CDR) (CDR) (CDR) (CAR)) ((CAR) (CAR) (CAR) (CDR))
((CDR) (CAR) (CAR) (CDR)) ((CAR) (CDR) (CAR) (CDR))
((CDR) (CDR) (CAR) (CDR)) ((CAR) (CAR) (CDR) (CDR))
((CDR) (CAR) (CDR) (CDR)) ((CAR) (CDR) (CDR) (CDR))
((CDR) (CDR) (CDR) (CDR)) ((ATOM)) ((CONSP)) ((NOT)) ((CONS)) ((SVREF))
((SVSET)) ((EQ)) ((VALUES0)) ((VALUES1)) (PUSH) STACK-TO-MV
((LIST-TO-MV)) ((SYMBOL-FUNCTION)) (PUSH) LIST ((NIL)) (PUSH) ERROR
C-GLOBAL-FUNCTION-CALL COMPILER-ERROR PRIMOP MK-ANODE
"~S called with ~S arguments, but it requires ~
~:[~:[from ~S to ~S~;~S~]~;at least ~*~S~] arguments."
C-WARN C-NORMAL-FUNCTION-CALL FUNCTION-CODES TEST-ARGUMENT-SYNTAX NO-KEYS
STATIC-KEYS CALLS-CODE CALLSR FUNTABR-INDEX
#Y(C-GLOBAL-FUNCTION-CALL-1 #11Y(00 00 00 00 00 01 07 00 00 19 01) NIL)
C-DIRECT-FUNCTION-CALL *INLINE-DEFINITIONS* FUNCTION LAMBDA
INLINE-CALLABLE-FUNCTION-P C-FUNCALL-INLINE
) )
#Y(#:TOP-LEVEL-FORM-116 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
C-PROCLAIM REMOVE-OLD-DEFINITIONS
#Y(C-PROCLAIM
#156Y(00 01 00 00 00 02 93 20 03 00 19 02 93 53 25 00 78 8C 01 5B A9 83
B6 80 80 7E 01 00 14 86 2D 0A A8 63 01 D6 36 02 2F E0 0F 01 7A 01
1A 66 8C 01 5B A9 83 B6 80 63 7E 01 00 14 86 2D 15 A8 63 03 D6 36
02 2F E0 0F 03 A8 63 04 36 07 C0 EC 30 6D 0F 04 7A 01 1A 5B 8C 01
5B A9 83 B6 3C 7E 01 00 14 86 2D 15 A8 63 04 D6 36 02 2F E0 0F 04
A8 63 03 36 07 C0 EC 30 6D 0F 03 7A 01 1A 5C 8C 01 5B 1A 13 7E 01
00 14 86 2D 0A A8 63 05 D6 36 02 2F E0 0F 05 7A 01 A9 84 B6 69 00
19 04
)
#S(HASH-TABLE EQ (DECLARATION . 109.) (NOTINLINE . 70.) (INLINE . 30.)
(SPECIAL . 1.)
)
*KNOWN-SPECIAL-VARS* #.#'EQ *INLINE-FUNCTIONS* *NOTINLINE-FUNCTIONS*
*USER-DECLARATION-TYPES*
) )
#Y(#:TOP-LEVEL-FORM-117 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
C-PROCLAIM-CONSTANT REMOVE-OLD-DEFINITIONS
#Y(C-PROCLAIM-CONSTANT
#39Y(00 02 00 00 00 03 0E 00 1C 0E AA 63 01 D6 36 02 2F E0 0F 01 A9 7F 03
03 00 19 03 AA AA 2D 04 72 0E 05 55 0F 05 19 03
)
*COMPILING-FROM-FILE* *KNOWN-SPECIAL-VARS* #.#'EQ C-CONSTANTP
C-CONSTANT-VALUE *CONSTANT-SPECIAL-VARS*
) )
#Y(#:TOP-LEVEL-FORM-118 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
C-DEFUN REMOVE-OLD-DEFINITIONS
#Y(C-DEFUN
#51Y(00 01 00 01 00 08 37 01 12 74 01 0E 00 1C 21 1A 0E AA 94 72 0E 04 55
0F 04 19 03 0E 00 1C 11 0E 01 1C 0D AA 63 02 D7 36 02 2F E0 0F 02 89
01 61 00 19 03
)
*COMPILING* *COMPILING-FROM-FILE* *KNOWN-FUNCTIONS* #.#'EQ
*INLINE-DEFINITIONS*
) )
#Y(#:TOP-LEVEL-FORM-119 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
C-PROVIDE REMOVE-OLD-DEFINITIONS
#Y(C-PROVIDE
#20Y(00 01 00 00 00 02 A9 69 4E 63 00 D5 36 02 2F E0 0F 00 19 02)
*COMPILED-MODULES* #.#'STRING=
) )
#Y(#:TOP-LEVEL-FORM-120 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
C-REQUIRE REMOVE-OLD-DEFINITIONS
#Y(C-REQUIRE
#47Y(00 01 00 01 00 08 38 01 14 39 02 AB 69 4E 63 00 D5 36 02 83 DC 11 89
00 04 AB 78 0D 02 94 1F 0A D6 AB 31 00 17 19 04 00 19 04 AA C0 32 19
04
)
*COMPILED-MODULES* #.#'STRING-EQUAL
#Y(C-REQUIRE-LOAD-LIB
#45Y(00 01 00 00 00 02 A9 D4 68 01 8B 00 93 1F 09 A8 6A 12 D6 36 04 83
38 09 89 00 01 95 14 2D 07 19 04 A8 D7 5B D8 5B D9 5B 2B 07 06 19
04
)
(#".LSP" #".LIB") SEARCH-FILE #.(PATHNAME-TYPE '#".LIB") :VERBOSE
:PRINT :ECHO LOAD COMPILE-FILE
) ) )
#Y(#:TOP-LEVEL-FORM-121 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
ANALYZE-LETLIST REMOVE-OLD-DEFINITIONS
#Y(ANALYZE-LETLIST
#83Y(00 01 00 00 00 02 A9 01 02 8A 02 3D 8B 02 85 2D 23 94 53 1F 26 94 53
70 86 2D 20 94 53 54 1F 1B 94 53 54 54 1B 15 94 53 70 7B 01 94 53 54
53 14 7B 00 1A 10 8B 02 7B 01 00 1A 74 BE 4A 06 D5 8B 06 2E 00 4B 7A
02 89 02 43 A9 6A 65 A9 6A 65 3C 02 19 05
)
C-ERROR "Illegal syntax in LET/LET*: ~S"
) )
#Y(#:TOP-LEVEL-FORM-122 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
ANALYZE-LAMBDALIST REMOVE-OLD-DEFINITIONS
#Y(ANALYZE-LAMBDALIST
#700Y(00 01 00 00 00 02 A9 01 04 D4 01 08 9F 1F 28 8B 0D A8 85 2D 09 A8
2D 05 16 01 7A 0D 1A 6E 92 25 01 0E 92 25 02 00 C1 4A 6F D8 AC 2E
03 4B 1A 68 A8 7B 0D 1A 63 16 01 9F 1F 80 AE 8B 0D 24 06 80 A8 1A
16 92 25 07 04 92 25 08 03 92 1A 27 C1 4A 80 6E D8 AC 2E 03 4B 16
01 7A 0D 9F 1F 80 8A 8B 0D A8 85 2D 5E 92 1F 80 4F 8B 00 86 2D 80
49 92 54 1B 08 92 53 14 7B 0C 00 1A 10 92 54 1F 39 92 54 54 1B 0D
8B 00 7B 0C 92 54 53 14 7B 0B BE 1A 1F 92 54 54 1F 22 92 54 54 70
86 2D 1B 92 54 54 54 1B 15 8B 00 7B 0C 92 54 70 7B 0B 92 54 54 53
14 7B 0A 16 01 1A FF A1 A8 2D 05 16 01 1A FF 99 16 01 1A FF 94 C1
4A 3A DE BB 2E 03 4B 1A 33 92 25 0B 10 C1 4A 09 DE BC 2E 03 4B 16
01 1A 23 16 01 1A 1F 92 F3 1A 17 16 01 9F 1F 16 8B 0D 24 09 11 7A
0D 1F 50 8B 0D A8 85 2D 54 A8 2D 05 7A 0E 16 01 9F 1F 80 7F 8B 0D
92 25 0C 06 C1 4A 0C C2 1A 04 C1 4A 06 CD 14 AC 2E 03 4B 16 01 7A
0D 1A 61 92 25 10 3F C1 4A 80 BF D8 AC 2E 03 4B 1A 80 B7 92 53 70
7B 07 92 53 54 1A 15 92 54 54 53 1A 33 92 53 20 6C 8B 00 6A A0 63
12 69 FC 7B 07 92 70 7B 06 92 54 1F 19 92 54 70 7B 05 92 54 54 20
5A BE 1A 10 A8 6A A0 63 12 69 FC 7B 07 A8 7B 06 5B 7B 05 BE 14 7B
04 1A 80 6E A8 23 0D 05 A8 24 0E FF 89 16 01 9F 1F 80 81 8B 0D 24
0D 80 7B 7A 0D 75 07 9F 1F 80 63 8B 0D A8 85 2D FF 83 92 1F 80 43
8B 00 85 2D 1C 92 53 1F 3A 92 53 70 86 A1 34 92 53 54 1F 2F 92 53
54 70 86 2D 28 92 53 54 54 1B 22 92 54 1C FF 79 92 54 1F 19 92 54
54 1C FF 6F 92 54 54 1F 0E 92 54 54 70 86 2D 07 92 54 54 54 1C FF
5C A8 2D 05 16 01 7A 0D 1A FF A4 A8 23 11 05 A8 24 0E FF 2D 16 01
9F 1F 0D 8B 0D 24 11 08 75 02 1A 02 16 01 7A 0D 9F 1F 80 75 8B 0D
92 25 13 06 C1 4A 6F C2 1A 04 C1 4A 69 CD 14 AC 2E 03 4B 16 01 1A
61 92 25 14 00 92 1A 25 C1 4A 80 45 D8 AC 2E 03 4B 16 01 7A 0D 9F
1F 80 4D 8B 0D A8 85 2D 62 92 1F 28 8B 00 86 2D 23 92 54 1B 08 92
53 14 7B 02 00 1A 10 92 54 1F 13 92 54 54 1B 0E 8B 00 7B 02 92 54
53 14 7B 01 16 01 1A 49 A8 2D 05 16 01 1A 42 16 01 1A FF BD A8 24
0E FF 93 16 01 9F 1F 06 8B 0D 23 0E FF AD 8A 0D 08 C1 4A 05 E9 BB
2E 03 4B B4 6A 65 B4 6A 65 B4 6A 65 B4 6A 65 B4 B4 B4 6A 65 B4 6A
65 B4 6A 65 B4 6A 65 B4 B4 6A 65 B4 6A 65 3C 0D 19 10
)
0.
#S(HASH-TABLE EQ (&ENVIRONMENT . 1.) (&WHOLE . 1.) (&BODY . 1.)
(&AUX . 1.) (&ALLOW-OTHER-KEYS . 1.) (&KEY . 1.) (&REST . 1.)
(&OPTIONAL . 1.)
)
#S(HASH-TABLE EQ (&AUX . 16.) (&KEY . 16.) (&REST . 16.)
(&OPTIONAL . 16.)
)
C-ERROR "Lambda list marker ~S not allowed here." LAMBDALIST-ERROR
&OPTIONAL
#S(HASH-TABLE EQ (&ENVIRONMENT . 1.) (&WHOLE . 1.) (&BODY . 1.)
(&AUX . 1.) (&ALLOW-OTHER-KEYS . 1.) (&KEY . 1.) (&REST . 1.)
(&OPTIONAL . 1.)
)
#S(HASH-TABLE EQ (&AUX . 157.) (&KEY . 157.) (&REST . 157.)) &REST
"Missing &REST parameter in lambda list ~S"
#S(HASH-TABLE EQ (&ENVIRONMENT . 1.) (&WHOLE . 1.) (&BODY . 1.)
(&AUX . 1.) (&ALLOW-OTHER-KEYS . 1.) (&KEY . 1.) (&REST . 1.)
(&OPTIONAL . 1.)
)
#S(HASH-TABLE EQ (&ENVIRONMENT . 111.) (&WHOLE . 111.) (&BODY . 111.)
(&AUX . 111.) (&ALLOW-OTHER-KEYS . 111.) (&KEY . 111.) (&REST . 111.)
(&OPTIONAL . 111.)
)
&KEY &AUX "Lambda list element ~S is superfluous."
#S(HASH-TABLE EQ (&ENVIRONMENT . 203.) (&WHOLE . 203.) (&BODY . 203.)
(&AUX . 203.) (&ALLOW-OTHER-KEYS . 203.) (&KEY . 203.) (&REST . 203.)
(&OPTIONAL . 203.)
)
&ALLOW-OTHER-KEYS *KEYWORD-PACKAGE*
#S(HASH-TABLE EQ (&ENVIRONMENT . 105.) (&WHOLE . 105.) (&BODY . 105.)
(&AUX . 105.) (&ALLOW-OTHER-KEYS . 105.) (&KEY . 105.) (&REST . 105.)
(&OPTIONAL . 105.)
)
#S(HASH-TABLE EQ (&ENVIRONMENT . 4.) (&WHOLE . 4.) (&BODY . 4.)
(&AUX . 4.) (&ALLOW-OTHER-KEYS . 4.) (&KEY . 4.) (&REST . 4.)
(&OPTIONAL . 4.)
)
"Lambda lists with dots are only allowed in macros, not here: ~S"
) )
#Y(#:TOP-LEVEL-FORM-123 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
LAMBDALIST-ERROR REMOVE-OLD-DEFINITIONS
#Y(LAMBDALIST-ERROR
#18Y(00 01 00 00 00 02 BE 4A 07 D5 AD 2E 00 4B 19 02 19 02) C-ERROR
"Illegal lambda list element ~S"
) )
#Y(#:TOP-LEVEL-FORM-124 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
INLINE-CALLABLE-FUNCTION-P REMOVE-OLD-DEFINITIONS
#Y(INLINE-CALLABLE-FUNCTION-P
#146Y(00 02 00 00 00 03 AA 30 2B 1E 80 84 8B 02 BE 52 1E 80 7D 8C 02 30
2B 1E 80 76 94 54 54 51 1E 80 6F 94 54 70 A8 30 2B 1E 80 64 8B 00
BF 52 1E 80 5D 8C 00 30 2B 1E 80 56 92 54 70 A8 30 34 1E 80 4B D6
A9 36 06 30 7B 51 1E 80 41 D7 A9 36 06 30 7B 51 1E 38 D8 A9 36 06
6A 7B D9 AA 36 06 6A 7B DA AB 36 06 85 7B 03 AA 30 63 14 89 01 0A
89 02 12 AE A9 31 01 2B 19 08 AE 89 03 01 94 14 31 01 30 19 08 14
AF 8E 02 31 02 2F 19 08 19 05 19 04 19 03
)
FUNCTION LAMBDA &KEY &ALLOW-OTHER-KEYS &OPTIONAL &REST &AUX
) )
#Y(#:TOP-LEVEL-FORM-125 #12Y(00 00 00 00 00 01 D4 2F 5F BF 19 01)
(SPECIAL *SPECIALS*) *SPECIALS*
)
#Y(#:TOP-LEVEL-FORM-126 #12Y(00 00 00 00 00 01 D4 2F 5F BF 19 01)
(SPECIAL *IGNORES*) *IGNORES*
)
#Y(#:TOP-LEVEL-FORM-127 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
PUSH-SPECIALS REMOVE-OLD-DEFINITIONS
#Y(PUSH-SPECIALS
#31Y(00 00 00 00 00 01 63 00 5B 1A 0D 7E 01 00 14 67 01 0E 02 55 0F 02 7A
01 A9 84 B6 6F 00 19 03
)
*SPECIALS* MAKE-SPECIAL-VAR *VENV*
) )
#Y(#:TOP-LEVEL-FORM-128 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
IGNORE-CHECK REMOVE-OLD-DEFINITIONS
#Y(IGNORE-CHECK
#78Y(00 01 00 00 00 02 D4 AA D5 6A 53 63 02 D7 36 02 84 DC 1A D4 AA D8 85
53 11 D4 AA DB 86 53 1A C6 14 D4 AB D5 6A 53 2E 06 19 02 C3 1A 73 D4
AA D8 85 53 06 D4 AA DB 86 53 06 00 19 02 00 19 03 D4 AA D5 6A 53 A8
86 9E 74 DD A9 2E 06 19 03
)
VAR 1. *IGNORES* #.#'EQ 2.
"Binding variable ~S can cause side effects despite of IGNORE declaration~%since it is declared SPECIAL."
C-WARN 5. "variable ~S is used despite of IGNORE declaration."
"variable ~S is not used.~%Misspelled or missing IGNORE declaration?"
) )
#Y(#:TOP-LEVEL-FORM-129 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
C-MAKE-CLOSURE REMOVE-OLD-DEFINITIONS
#Y(C-MAKE-CLOSURE
#29Y(00 03 00 00 00 04 89 03 03 00 19 04 D4 8C 03 8C 03 73 03 D5 AD 6A 63
73 02 59 02 19 04
)
VENV MAKE-VECTOR1&PUSH
) )
#Y(#:TOP-LEVEL-FORM-130 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
BIND-FIXED-VAR-1 REMOVE-OLD-DEFINITIONS
#Y(BIND-FIXED-VAR-1
#63Y(00 01 00 00 00 02 A9 83 63 24 A9 7F 00 20 A9 63 01 D6 36 02 83 DC 17
DB AA DC 5B DD 5B DE 5B DF 5B E0 5B E1 63 0E E3 63 10 2B 10 11 19 02
A9 80 03 08 C2 4A 05 D9 AD 2E 04 4B A9 2D 06 19 02
)
PROCLAIMED-SPECIAL-P *SPECIALS* #.#'EQ C-CONSTANTP C-ERROR
"Constant ~S cannot be bound." MAKE-SPECIAL-VAR :NAME :SPECIALP
:CONSTANTP :USEDP :REALLY-USEDP :CLOSUREP :STACKZ *STACKZ* :VENVC *VENVC*
MAKE-VAR
) )
#Y(#:TOP-LEVEL-FORM-131 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
BIND-FIXED-VAR-2 REMOVE-OLD-DEFINITIONS
#Y(BIND-FIXED-VAR-2
#29Y(00 01 00 00 00 02 D4 AA D5 86 53 06 D4 AA D6 86 53 03 00 19 02 D7 0E
04 55 0F 04 19 02
)
VAR 2. 3. (BIND 1.) *STACKZ*
) )
#Y(#:TOP-LEVEL-FORM-132 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
C-BIND-FIXED-VAR REMOVE-OLD-DEFINITIONS
#Y(C-BIND-FIXED-VAR
#65Y(00 03 00 00 00 04 D4 AC D5 85 53 09 D4 AC DC 85 53 1C 00 19 04 D4 AC
D6 85 53 77 D7 AB 63 04 AC 73 04 D9 D4 AE DA 6A 53 67 07 59 02 1A 0E
D7 AB 63 04 AC 73 04 DD AD 63 04 AD 59 04 14 59 02 19 04
)
VAR 2. 3. GET *VENVC* BIND 1. NEW-CONST 9. SET
) )
#Y(#:TOP-LEVEL-FORM-133 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
PROCESS-FIXED-VAR-LIST REMOVE-OLD-DEFINITIONS
#Y(PROCESS-FIXED-VAR-LIST
#65Y(00 01 00 00 00 02 A9 01 02 8A 02 2B D4 0E 01 55 0F 01 D6 36 01 6A A4
D7 5B D8 5B D9 5B DA 5C DB 5B DC 63 01 DD 63 0A 66 10 0B 7B 00 8B 02
67 0C 7B 01 7A 02 89 02 55 A9 6A 65 A9 6A 65 3C 02 19 05
)
1. *STACKZ* :NAME :SPECIALP :CONSTANTP :USEDP :REALLY-USEDP :CLOSUREP
:STACKZ :VENVC *VENVC* MAKE-VAR BIND-FIXED-VAR-1
) )
#Y(#:TOP-LEVEL-FORM-134 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
UNMODIFY-UNUSED-VAR REMOVE-OLD-DEFINITIONS
#Y(UNMODIFY-UNUSED-VAR
#53Y(00 01 00 00 00 02 D4 AA D5 6A 53 5B 1A 20 7E 01 00 70 D6 A9 D7 30 53
54 1B 06 D6 A9 D8 5B 30 54 16 01 8C 00 D6 A9 D8 5B 30 54 16 01 7A 01
A9 84 B6 5C 00 19 04
)
VAR 7. ANODE 2. 3.
) )
#Y(#:TOP-LEVEL-FORM-135 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
CHECKING-FIXED-VAR-LIST REMOVE-OLD-DEFINITIONS
#Y(CHECKING-FIXED-VAR-LIST
#60Y(00 01 00 00 00 02 5B AA 5B 1A 28 D5 A9 D8 5B 30 54 A8 2D 05 1A 1B 7E
01 00 14 2D 00 D5 A9 D6 85 53 0F D5 A9 D7 86 53 63 D5 A9 D8 86 53 03
A8 7B 02 7A 01 A9 84 B6 5F AA 30 65 19 05
)
IGNORE-CHECK VAR 2. 6. 9. UNMODIFY-UNUSED-VAR
) )
#Y(#:TOP-LEVEL-FORM-136 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
BOUND-TO-VAR-P REMOVE-OLD-DEFINITIONS
#Y(BOUND-TO-VAR-P
#50Y(00 02 00 00 00 03 D4 AB D5 85 53 1E D6 AA D7 6A 53 6A 63 24 04 14 D6
AA D7 30 53 53 EB D6 AA 85 57 6A 93 1F 05 8B 01 23 05 03 00 19 03 93
54 53 19 03
)
VAR 2. ANODE 3. 1. GET
) )
#Y(#:TOP-LEVEL-FORM-137 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
BIND-MOVABLE-VAR REMOVE-OLD-DEFINITIONS
#Y(BIND-MOVABLE-VAR
#134Y(00 02 00 00 00 03 AA 83 63 80 65 AA 7F 00 80 60 AA 63 01 D6 36 02
83 DC 80 56 DE 0E 07 55 0F 07 DF AB E0 5B E1 AE 67 0E E3 B0 7F 0E
80 52 00 14 E5 5B E6 5B E7 5B E8 63 07 E9 63 16 66 12 17 A8 AB 68
18 8A 00 17 A9 AC 73 02 A8 5D 19 AB 5D 1A 30 53 72 5D 19 AB 5D 1A
AB 30 54 16 02 16 01 15 19 03 C2 4A 08 D9 AE 2E 04 4B C4 1A 08 C4
1A 05 AA 7F 03 6E C6 14 0E 07 55 0F 07 AA 2D 09 19 03 B0 2D 10 1A
FF A9
)
PROCLAIMED-SPECIAL-P *SPECIALS* #.#'EQ C-CONSTANTP C-ERROR
"Constant ~S cannot be bound." 0. *STACKZ* (BIND 1.) MAKE-SPECIAL-VAR 1.
:NAME :SPECIALP :CONSTANTP ANODE-CONSTANTP :CONSTANT ANODE-CONSTANT
:USEDP :REALLY-USEDP :CLOSUREP :STACKZ :VENVC *VENVC* MAKE-VAR
BOUND-TO-VAR-P VAR 8.
) )
#Y(#:TOP-LEVEL-FORM-138 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
C-BIND-MOVABLE-VAR REMOVE-OLD-DEFINITIONS
#Y(C-BIND-MOVABLE-VAR
#67Y(00 01 00 00 00 02 D4 AA D5 85 53 12 D4 AA DA 85 53 1E D4 AA DD 30 53
70 86 A6 25 00 19 02 D4 AA D6 85 53 77 D7 D4 AB D8 6A 53 67 05 59 02
1A 0B DB AA 63 08 D4 AD DD 6A 53 59 04 14 59 01 19 02 C8 19 02
)
VAR 2. 3. BIND 1. NEW-CONST 9. SET *VENVC* 10. ((PUSH))
) )
#Y(#:TOP-LEVEL-FORM-139 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
C-BIND-MOVABLE-VAR-ANODE REMOVE-OLD-DEFINITIONS
#Y(C-BIND-MOVABLE-VAR-ANODE
#57Y(00 02 00 00 00 03 D4 D5 AC 67 02 66 03 03 AB AB 68 04 8A 00 1C D9 A9
DA 6A 53 5B 1A 0E 7E 01 00 70 99 22 05 8C 00 AC 2F D3 7A 01 A9 84 B6
6E 16 02 16 01 AA A9 59 02 19 04
)
BIND-MOVABLE (NIL) C-BIND-MOVABLE-VAR MK-ANODE BOUND-TO-VAR-P VAR 8.
) )
#Y(#:TOP-LEVEL-FORM-140 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
PROCESS-MOVABLE-VAR-LIST REMOVE-OLD-DEFINITIONS
#Y(PROCESS-MOVABLE-VAR-LIST
#91Y(00 03 00 00 00 04 AB AB 01 03 8A 04 29 8B 03 A8 D4 68 01 8B 06 A9 68
02 A9 7B 04 A8 7B 05 63 03 7B 03 8A 09 06 A8 0E 04 55 0F 04 16 03 8C
04 7A 04 62 04 89 04 57 89 06 15 AA 5B 1A 0B 7E 01 00 14 0E 04 55 0F
04 7A 01 A9 84 B6 71 16 02 AA 6A 65 AA 6A 65 AA 6A 65 3C 03 19 09
)
ONE C-FORM BIND-MOVABLE-VAR *STACKZ* *VENV*
) )
#Y(#:TOP-LEVEL-FORM-141 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
CHECKING-MOVABLE-VAR-LIST REMOVE-OLD-DEFINITIONS
#Y(CHECKING-MOVABLE-VAR-LIST
#152Y(00 02 00 00 00 03 AA AA 5B 8A 02 37 8B 02 8A 00 27 14 2D 00 D5 A9
D6 85 53 1E D5 A9 D7 85 53 28 D5 A9 DC 86 53 80 47 D5 A9 D8 86 53
0B D5 A9 D9 6A 53 DA 2F D1 A8 7B 01 16 01 8C 02 7A 02 62 02 89 02
49 A8 30 65 19 06 D5 A9 D8 5B 30 54 D5 A9 D9 6A 53 DA 2F D1 8B 02
DB A9 D6 30 53 16 01 54 1B 56 8B 02 DB A9 D7 5B 30 54 16 01 1A 4A
D5 A9 D8 5B 30 54 D5 A9 D9 6A 53 DA 2F D1 8B 02 DB A9 D6 30 53 16
01 54 1B 0A 8B 02 DB A9 D7 5B 30 54 16 01 A8 2D 09 1A FF A0
)
IGNORE-CHECK VAR 2. 3. 9. 10. 0. ANODE 6. UNMODIFY-UNUSED-VAR
) )
#Y(#:TOP-LEVEL-FORM-142 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
OPTIMIZE-VAR-LIST REMOVE-OLD-DEFINITIONS
#Y(OPTIMIZE-VAR-LIST
#192Y(00 01 00 00 00 02 0E 00 1B 07 A9 6A 64 5B 1A 80 A7 00 19 02 7E 01
00 1C 80 9C D5 A9 D6 85 53 80 95 D5 A9 D7 85 53 80 8E D5 A9 D8 6A
53 5B 1A 80 7E 7E 01 00 70 D5 A9 D6 85 53 80 6F D5 A9 D7 85 53 80
68 D5 A9 D9 85 53 80 61 D5 A9 DA 30 53 70 23 07 80 57 93 54 54 1C
80 51 D5 A9 DA 6A 53 DB 2F D1 93 54 70 DC A9 DD 5B 30 54 16 01 93
54 71 DC A9 DD 5B 30 54 16 01 D5 AC DE 6A 53 D5 AA DE 6A 53 1A 1A
8B 00 DC A9 DD 6A 53 8A 00 0C 8B 00 8C 00 B1 2F D1 16 01 A9 7B 03
16 02 7A 00 92 20 63 16 01 D5 AD DE AB 30 54 16 01 16 01 7A 01 A9
84 B6 FF 7D 16 02 7A 01 A9 84 B6 FF 57 00 19 04
)
*NO-CODE* VAR 2. 9. 8. 7. 10. 0. ANODE 3. 5.
) )
#Y(#:TOP-LEVEL-FORM-143 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
C-BIND-WITH-SVARS REMOVE-OLD-DEFINITIONS
#Y(C-BIND-WITH-SVARS
#206Y(00 06 00 00 00 00 AE AE AE AE AE AE 5B 8A 06 80 63 96 53 1C 0A 8B
04 8B 03 68 00 A9 77 CA 00 8B 06 8B 06 8B 05 8B 04 D5 67 02 D7 AD
D8 85 53 80 4B D7 AD DF 85 53 80 67 D7 AD E1 86 53 80 83 D9 AC 63
06 AC AC 73 05 AB E0 AF 63 06 AE 73 04 95 14 59 04 16 04 EA A9 77
CA 00 8C 06 8C 06 8C 06 8C 06 8C 06 7A 06 62 06 62 06 62 06 62 06
62 06 89 06 FF 9D A8 30 65 19 0E 00 1A 1C D9 AC 63 06 AC AC 73 05
AB AA D7 B0 DB 85 53 6D DC D7 B1 DD 6A 53 67 0A 73 02 59 01 14 31
03 1F 1A FF B4 D9 AC 63 06 AC AC 73 05 AB AA E0 B0 63 06 AF 59 04
1A FF 9D D9 AC 63 06 AC AC 73 05 AB AA 59 03 1A FF 91 E2 AB D8 30
53 54 1B 69 00 1A FF 85
)
C-BIND-MOVABLE-VAR-ANODE ONE MAKE-LABEL VAR 2. JMPIFBOUNDP *VENVC* 3.
BIND 1. NEW-CONST 9. SET 6. ANODE
) )
#Y(#:TOP-LEVEL-FORM-144 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
C-LAMBDABODY REMOVE-OLD-DEFINITIONS
#Y(C-LAMBDABODY
#1013Y(00 02 00 01 00 09 39 01 AA D4 2E 01 D6 AC D7 63 04 D9 63 06 2B 06
07 10 04 0E 04 10 08 63 04 0E 06 55 10 06 5B 2D 09 10 0A C9 10 0C
CB 4A 82 F0 89 13 80 D1 8B 14 2D 0E 3E 0D 63 04 B5 6A 63 E3 AA E4
AB 30 54 16 02 63 04 B4 6A 63 E3 AA E5 AB 30 54 16 02 63 04 B1 C9
52 51 14 E3 AA E6 AB 30 54 16 02 63 04 E3 A9 E7 B3 30 54 16 01 63
04 E3 A9 E8 B2 30 54 16 01 63 04 E3 A9 E9 AE 30 54 16 01 8A 20 09
63 04 8B 21 A9 2F D1 16 01 8C 21 5C 63 16 2F 64 3E 02 63 08 0E 08
10 08 0E 17 10 17 0E 18 10 18 0E 06 10 06 00 10 19 00 10 1A 01 16
5E 29 2D 1B 3E 02 15 0F 1A 15 0F 19 2C 1C 5B 0E 06 55 0F 06 EA 5E
37 2D 1D 3E 02 62 15 62 15 5E 36 2D 1D 3E 02 62 12 62 12 5E 33 23
0B 2D 5E 33 73 01 2D 1D 3E 02 62 0C 62 0C 5E 30 2D 1D 3E 02 62 09
62 09 D4 0E 08 55 0F 08 DF 0E 08 55 0F 08 EB BD 5B 1A 34 53 54 40
1A FF 2D 01 02 3C 02 1A 53 5B 7B 13 5B 7B 12 1A 80 5D 5B 7B 0A 5B
7B 09 1A 80 E3 BE 1A 82 75 7E 01 00 14 0E 18 55 0F 18 63 08 7B 15
A8 2D 1E 7A 01 A9 84 B6 6A BD 78 65 15 16 02 BA BA 5E 37 5E 37 8A
03 80 5F 8B 00 23 0B FF BE 5D 1F 8B 03 73 01 00 72 5D 20 8B 05 63
06 63 08 73 04 73 01 66 03 21 8B 01 A9 68 22 A9 7B 14 A8 7B 15 16
02 8B 01 5D 23 68 24 7B 14 8B 03 0E 18 55 0F 18 63 08 7B 11 8B 03
2D 1E 8B 00 23 0B 07 8B 13 0E 18 55 0F 18 8C 03 8C 03 8C 03 7A 03
62 03 62 03 62 03 89 03 FF A1 BC 78 65 14 B9 78 65 11 BB 78 65 13
BA 78 65 12 16 04 5E 33 23 0B 0F 8B 0C 0E 18 55 0F 18 63 08 7B 0A
8B 0C 2D 1E B1 B1 5E 31 5E 31 8A 03 80 5F 8B 00 23 0B FF 38 5D 25
8B 03 73 01 00 72 5D 20 8B 05 63 06 63 08 73 04 73 01 66 03 21 8B
01 A9 68 22 A9 7B 0B A8 7B 0C 16 02 8B 01 5D 23 68 24 7B 0B 8B 03
0E 18 55 0F 18 63 08 7B 08 8B 03 2D 1E 8B 00 23 0B 07 8B 0A 0E 18
55 0F 18 8C 03 8C 03 8C 03 7A 03 62 03 62 03 62 03 89 03 FF A1 B3
78 65 0B B0 78 65 08 B2 78 65 0A B1 78 65 09 16 04 5E 2C 5E 2C 8A
01 23 8B 00 A8 5D 23 68 24 8B 03 A9 68 22 A9 7B 07 A8 7B 08 A8 0E
18 55 0F 18 16 03 8C 01 7A 01 62 01 89 01 5D AD 78 65 05 AC 78 65
04 16 02 5D 26 04 2B 72 5D 27 68 24 5E 16 67 28 BC 67 28 BA BA 68
29 B8 67 28 B6 67 28 B4 B4 68 29 B2 B2 68 29 6B 07 20 63 0A A9 AC
AE 66 03 2A 90 2B 5E 1A 5E 1A 5E 1A 66 04 2C 5E 17 5E 17 5E 16 5E
18 5E 17 5E 17 66 06 2D 90 2B BB BB BB 66 04 2C B8 B8 B7 B9 B8 B8
66 06 2D 90 2E B4 B4 66 03 2C B0 5D 2F 63 08 5E 34 5D 30 6B 03 1F
5D 31 6B 02 1F 31 07 20 72 5D 32 5D 33 AA 66 03 21 8A 02 0A AD D4
2F D1 AC AB 99 72 2F D1 5E 19 5E 17 BD BB B9 B7 B5 6B 07 20 2D 34
15 16 19 12 06 16 10 4B 14 63 04 E3 A9 5D 35 AC 30 54 16 01 5D 36
A9 D4 6A 53 24 37 80 50 63 04 E3 A9 E4 DF 30 54 16 01 63 04 E3 A9
E5 DF 30 54 16 01 63 04 E3 A9 E6 5C 30 54 16 01 63 04 E3 A9 E7 5B
30 54 16 01 63 04 E3 A9 E8 5B 30 54 16 01 63 04 E3 A9 E9 5B 30 54
16 01 63 04 E3 A9 5D 35 78 53 00 5D 36 A9 5D 38 5D 39 30 54 16 01
63 04 63 04 63 04 63 04 63 04 E3 A9 5D 38 30 53 16 01 1B FD 88 C9
14 E3 AA 5D 3A AB 30 54 16 01 EA 63 04 E3 A9 5D 3B 78 53 00 6A 63
6B 02 33 E3 AA 5D 3C AB 30 54 16 01 EA 63 04 E3 A9 5D 3D 78 53 00
6A 63 6B 02 33 E3 AA 5D 3E AB 30 54 16 01 EA 63 04 E3 A9 E8 78 53
00 6A 63 6B 02 33 E3 AA 5D 3F AB 30 54 16 02 0E 04 16 01 12 05 19
04
)
1. TEST-LIST :NAME :ENCLOSING *FUNC* :VENVC *VENVC* MAKE-FNODE *STACKZ*
MAKE-LABEL *FUNC-START-LABEL* 0. *ANONYMOUS-COUNT* C-ERROR
ANALYZE-LAMBDALIST FNODE 10. 11. 12. 13. 14. 15. *FENV* *DENV* *VENV*
*SPECIALS* *IGNORES* PROCESS-DECLARATIONS PUSH-SPECIALS
PROCESS-FIXED-VAR-LIST BIND-FIXED-VAR-2 OPTIONAL-SVAR BOUNDP MK-ANODE
BIND-MOVABLE-VAR ONE C-FORM KEY-SVAR PROGN ALL CHECKING-FIXED-VAR-LIST
CHECKING-MOVABLE-VAR-LIST C-MAKE-CLOSURE C-BIND-FIXED-VAR MAPCAP
C-BIND-WITH-SVARS C-BIND-MOVABLE-VAR-ANODE UNWIND (T) ((RET)) LAMBDABODY
(T . T) OPTIMIZE-VAR-LIST 2. ANODE ERROR 3. ((NIL) (SKIP 2.) (RET)) 5. 6.
7. 8. 9. 16.
) )
#Y(#:TOP-LEVEL-FORM-145 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
C-FNODE-FUNCTION REMOVE-OLD-DEFINITIONS
#Y(C-FNODE-FUNCTION
#223Y(00 01 00 01 00 08 37 01 02 0E 00 10 00 D5 D6 D7 B0 D8 6A 53 85 A6
11 D7 B0 DA 85 53 14 00 14 5B D7 B2 DF 6A 53 1A 80 52 D9 B0 73 02
59 01 1A 80 A7 DB D7 B1 DC 6A 53 63 00 73 03 C7 72 DE 0E 00 55 0F
00 15 1A 58 E2 A9 59 02 1A 1D 8B 00 A8 63 0C D7 A9 DF 78 53 00 E1
36 02 83 DC 69 E3 E4 AA DC 6A 53 63 11 63 00 59 04 14 D0 72 DE 0E
00 55 0F 00 AB 77 CA 02 16 01 7A 00 92 20 4F 16 01 A8 77 CC 00 5B
D7 B3 E7 6A 53 1A 35 E8 A9 59 02 1A 1D 8B 00 A8 63 0C D7 A9 E7 78
53 00 E1 36 02 83 DC 69 E3 E9 AA DC 6A 53 63 11 63 00 59 04 14 03
16 72 DE 0E 00 55 0F 00 AB 77 CA 02 16 01 7A 00 92 20 4E 16 01 A8
77 CC 00 5D 17 B3 D7 B5 D8 6A 53 73 03 73 01 31 04 20 14 2B 03 18
11 19 03
)
*STACKZ* FUNCTION (NIL) FNODE 9. FCONST 3. VENV 4. ((PUSH)) 1. 6. *FUNC*
#.#'EQ BCONST GET BLOCK *VENVC* ((PUSH)) 8. GCONST TAGBODY ((PUSH))
COPY-CLOSURE MK-ANODE
) )
#Y(#:TOP-LEVEL-FORM-146 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
C-PROGN REMOVE-OLD-DEFINITIONS
#Y(C-PROGN
#80Y(00 00 00 00 00 01 63 00 D5 2E 02 0E 00 71 8A 00 31 92 54 1C 31 D9 5B
AA 8A 00 1D 8B 00 7A 01 A8 8A 02 29 00 14 68 04 AC DB AA DC 6A 53 2E
09 EE A8 7B 03 16 02 89 00 63 DE AB AB 6A 65 2B 03 0B 19 05 2C 03 19
02 8B 00 2D 04 19 02 0E 06 1A 54
)
*FORM* 1. TEST-LIST C-NIL C-FORM (NIL) *FOR-VALUE* ANODE 2. SECLASS-OR-2
PROGN MK-ANODE
) )
#Y(#:TOP-LEVEL-FORM-147 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
C-PROG1 REMOVE-OLD-DEFINITIONS
#Y(C-PROG1
#84Y(00 00 00 00 00 01 63 00 D5 2E 02 0E 03 1C 3C 63 03 24 04 06 0E 00 54
54 1C 31 0E 00 54 70 D8 68 06 DB 0E 08 55 10 08 D9 0E 00 54 54 72 5B
2E 06 11 14 DD DE AB D5 6A 53 DE AB D5 6A 53 68 0B AB E0 AC E1 6B 03
1F 2B 03 0E 19 03 D9 0E 00 54 72 2D 06 19 01
)
*FORM* 2. TEST-LIST *FOR-VALUE* ONE PROGN C-FORM 1. *STACKZ* PROG1 ANODE
SECLASS-OR-2 (PUSH) ((POP)) MK-ANODE
) )
#Y(#:TOP-LEVEL-FORM-148 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
C-PROG2 REMOVE-OLD-DEFINITIONS
#Y(C-PROG2
#36Y(00 00 00 00 00 01 63 00 D5 2E 02 D7 0E 00 54 70 D8 0E 00 54 54 70 0E
00 54 54 71 6B 02 1F 73 03 2D 05 19 01
)
*FORM* 3. TEST-LIST PROGN PROG1 C-FORM
) )
#Y(#:TOP-LEVEL-FORM-149 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
C-IF REMOVE-OLD-DEFINITIONS
#Y(C-IF
#122Y(00 00 00 00 00 01 63 00 D5 D6 2B 03 03 0E 00 54 70 0E 00 54 54 70
0E 00 54 54 54 70 AA D8 68 05 A8 7F 06 80 43 AA 67 05 AA 67 05 5B
67 09 63 0A 67 09 DF E0 AE E1 6A 53 E0 AE E1 6A 53 68 0E E0 AD E1
6A 53 68 0E AE E3 AD 73 02 AF E4 AE 73 02 AF B1 B0 73 07 2B 03 11
19 09 AA 67 05 02 10 08 AD 5B 2E 05 11 15 19 05 A8 7F 07 6E 02 10
08 AD 5B 2E 05 11 A9 2D 05 3B 19 05
)
*FORM* 3. 4. TEST-LIST ONE C-FORM ANODE-CONSTANTP ANODE-CONSTANT-VALUE
*NO-CODE* MAKE-LABEL *FOR-VALUE* IF ANODE 2. SECLASS-OR-2 JMPIFNOT JMP
MK-ANODE
) )
#Y(#:TOP-LEVEL-FORM-150 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
C-WHEN REMOVE-OLD-DEFINITIONS
#Y(C-WHEN
#28Y(00 00 00 00 00 01 63 00 D5 2E 02 D7 0E 00 54 70 D8 0E 00 54 54 72 73
03 2D 05 19 01
)
*FORM* 2. TEST-LIST IF PROGN C-FORM
) )
#Y(#:TOP-LEVEL-FORM-151 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
C-UNLESS REMOVE-OLD-DEFINITIONS
#Y(C-UNLESS
#29Y(00 00 00 00 00 01 63 00 D5 2E 02 D7 0E 00 54 70 5B D8 0E 00 54 54 72
73 04 2D 05 19 01
)
*FORM* 2. TEST-LIST IF PROGN C-FORM
) )
#Y(#:TOP-LEVEL-FORM-152 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
C-AND REMOVE-OLD-DEFINITIONS
#Y(C-AND
#166Y(00 00 00 00 00 01 63 00 D5 2E 02 0E 00 54 1C 80 52 0E 00 54 54 1C
80 53 DC 5B 0E 00 71 63 09 67 0A 8A 01 32 8B 01 7A 02 A8 8A 03 80
46 C9 14 68 07 AD E0 AA E1 6A 53 2E 0E EF 8A 03 3B A8 7F 0F 3A A8
7B 04 0E 09 1B 80 59 D2 14 AB 59 02 14 7B 04 16 02 89 01 4E A8 7B
02 D7 AC AC 6A 65 2B 03 06 19 05 D7 D8 D9 2B 03 06 19 01 0E 00 54
70 2D 07 19 01 0E 09 1A FF B6 92 1A 53 A8 7F 10 52 0E 09 1C 03 E5
7B 04 02 10 12 AE 5B 1A 09 7E 01 00 14 5B 2E 07 7A 01 A9 84 B6 73
16 02 11 74 03 1A FF AF D1 1A FF A4
)
*FORM* 1. TEST-LIST AND (NIL) ((T)) MK-ANODE C-FORM (NIL) *FOR-VALUE*
MAKE-LABEL ONE ANODE 2. SECLASS-OR-2 ANODE-CONSTANTP ANODE-CONSTANT-VALUE
(NIL) *NO-CODE* JMPIFNOT1 JMPIFNOT
) )
#Y(#:TOP-LEVEL-FORM-153 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
C-OR REMOVE-OLD-DEFINITIONS
#Y(C-OR
#166Y(00 00 00 00 00 01 63 00 D5 2E 02 0E 00 54 1C 80 52 0E 00 54 54 1C
80 53 DC 5B 0E 00 71 63 09 67 0A 8A 01 32 8B 01 7A 02 A8 8A 03 80
46 C9 14 68 07 AD E0 AA E1 6A 53 2E 0E EF 8A 03 3B A8 7F 0F 3A A8
7B 04 0E 09 1B 80 59 D1 14 AB 59 02 14 7B 04 16 02 89 01 4E A8 7B
02 D7 AC AC 6A 65 2B 03 06 19 05 D7 D8 D9 2B 03 06 19 01 0E 00 54
70 2D 07 19 01 0E 09 1A FF B6 92 1A 53 A8 80 10 52 0E 09 1C 03 A8
7B 04 02 10 11 AE 5B 1A 09 7E 01 00 14 5B 2E 07 7A 01 A9 84 B6 73
16 02 11 74 03 1A FF AF D0 1A FF A4
)
*FORM* 1. TEST-LIST OR (NIL) ((NIL)) MK-ANODE C-FORM (NIL) *FOR-VALUE*
MAKE-LABEL ONE ANODE 2. SECLASS-OR-2 ANODE-CONSTANTP ANODE-CONSTANT-VALUE
*NO-CODE* JMPIF1 JMPIF
) )
#Y(#:TOP-LEVEL-FORM-154 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
C-QUOTE REMOVE-OLD-DEFINITIONS
#Y(C-QUOTE
#40Y(00 00 00 00 00 01 63 00 D5 D5 2B 03 02 0E 00 54 70 D7 D8 0E 05 1B 07
00 14 2B 03 08 19 02 DA AB 67 07 73 02 59 01 1A 70
)
*FORM* 2. TEST-LIST QUOTE (NIL) *FOR-VALUE* CONST NEW-CONST MK-ANODE
) )
#Y(#:TOP-LEVEL-FORM-155 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
C-THE REMOVE-OLD-DEFINITIONS
#Y(C-THE
#22Y(00 00 00 00 00 01 63 00 D5 D5 2B 03 02 0E 00 54 54 70 2D 03 19 01)
*FORM* 3. TEST-LIST C-FORM
) )
#Y(#:TOP-LEVEL-FORM-156 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
C-DECLARE REMOVE-OLD-DEFINITIONS
#Y(C-DECLARE #18Y(00 00 00 00 00 01 63 00 D5 2E 02 D7 63 00 2E 04 19 01)
*FORM* 1. TEST-LIST "Misplaced declaration: ~S" C-ERROR
) )
#Y(#:TOP-LEVEL-FORM-157 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
C-LOAD-TIME-VALUE REMOVE-OLD-DEFINITIONS
#Y(C-LOAD-TIME-VALUE
#46Y(00 00 00 00 00 01 63 00 D5 D6 2B 03 03 0E 00 54 70 D8 D9 0E 06 1B 07
00 14 2B 03 0B 19 02 DB DC AC 69 60 DD AE 66 04 0A 73 02 59 01 1A 6A
)
*FORM* 2. 3. TEST-LIST LOAD-TIME-VALUE (NIL) *FOR-VALUE* CONST :VALUE
:FORM MAKE-CONST MK-ANODE
) )
#Y(#:TOP-LEVEL-FORM-158 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
C-CATCH REMOVE-OLD-DEFINITIONS
#Y(C-CATCH
#66Y(00 00 00 00 00 01 63 00 D5 2E 02 0E 00 54 70 D7 68 04 D9 0E 06 55 10
06 DB 0E 00 54 54 72 2D 04 11 14 63 08 67 09 D9 DE AC D5 6A 53 DE AC
D5 6A 53 68 0B AC E0 AC 73 02 AD E1 AE 73 05 2B 03 0E 19 04
)
*FORM* 2. TEST-LIST ONE C-FORM CATCH *STACKZ* PROGN *FOR-VALUE*
MAKE-LABEL ANODE SECLASS-OR-2 CATCH-OPEN (CATCH-CLOSE) MK-ANODE
) )
#Y(#:TOP-LEVEL-FORM-159 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
C-THROW REMOVE-OLD-DEFINITIONS
#Y(C-THROW
#64Y(00 00 00 00 00 01 63 00 D5 D5 2B 03 02 0E 00 54 70 D7 68 04 D9 0E 06
55 10 06 0E 00 54 54 70 DB 2E 04 11 14 DC DD AB DE 6A 53 DD AB DE 6A
53 2E 0B 70 02 72 AB E0 AC E1 6B 03 1F 2B 03 0E 19 03
)
*FORM* 3. TEST-LIST ONE C-FORM 1. *STACKZ* ALL THROW ANODE 2.
SECLASS-OR-2 (PUSH) ((THROW)) MK-ANODE
) )
#Y(#:TOP-LEVEL-FORM-160 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
C-UNWIND-PROTECT REMOVE-OLD-DEFINITIONS
#Y(C-UNWIND-PROTECT
#99Y(00 00 00 00 00 01 63 00 D5 2E 02 D7 0E 04 55 10 04 0E 00 54 70 2D 05
11 14 DA 0E 04 55 10 04 DB 0E 00 54 54 72 5B 2E 05 11 14 5B 67 08 D7
DD AC D5 6A 53 DD AC D5 6A 53 68 0A DF AB 73 02 AD 0E 0C 25 0D 09 CC
1A 07 CD 1A 04 00 1A 01 00 14 E4 AE B0 E5 B1 73 02 73 04 6B 02 20 6B
02 1F 2B 03 12 19 04
)
*FORM* 2. TEST-LIST UNWIND-PROTECT *STACKZ* C-FORM CLEANUP PROGN
MAKE-LABEL ANODE SECLASS-OR-2 UNWIND-PROTECT-OPEN *FOR-VALUE*
#S(HASH-TABLE EQ (T . 7.) (ONE . 4.) (NIL . 1.)) ((VALUES0)) ((VALUES1))
(UNWIND-PROTECT-NORMAL-EXIT) UNWIND-PROTECT-CLOSE MK-ANODE
) )
#Y(#:TOP-LEVEL-FORM-161 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
C-PROGV REMOVE-OLD-DEFINITIONS
#Y(C-PROGV
#169Y(00 00 00 00 00 01 63 00 D5 2E 02 0E 00 54 70 D7 68 04 A8 80 05 05
A8 80 06 80 69 DC 0E 09 72 92 10 09 0E 00 54 54 70 D7 2E 04 11 14
DE 0E 09 72 92 10 09 DB 0E 00 54 54 54 72 2D 04 11 14 5C DF AA E0
30 53 53 1B 0A AC E1 2F D1 AA E1 2F D1 74 00 DE DF AF E0 6A 53 DF
AE E0 6A 53 68 0E DF AC E0 6A 53 68 0E AF 89 03 2E 00 14 AF 89 05
2B 00 14 AF 89 07 28 00 72 31 02 20 72 31 02 20 72 2B 03 13 19 07
DB 0E 00 54 54 70 DB 0E 00 54 54 54 72 73 03 2D 04 19 02 CD 1A 50
CE 1A 53 E5 B2 63 09 63 12 73 04 59 01 1A 4D
)
*FORM* 3. TEST-LIST ONE C-FORM ANODE-CONSTANTP ANODE-CONSTANT-VALUE PROGN
1. *STACKZ* PROGV ANODE 2. 0. SECLASS-OR-2 ((PUSH)) ((PROGV)) UNWIND
*FOR-VALUE* MK-ANODE
) )
#Y(#:TOP-LEVEL-FORM-162 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
C-MULTIPLE-VALUE-PROG1 REMOVE-OLD-DEFINITIONS
#Y(C-MULTIPLE-VALUE-PROG1
#122Y(00 00 00 00 00 01 63 00 D5 2E 02 0E 03 25 04 80 66 E1 E2 E3 E4 E5
66 04 12 73 02 E7 AD E8 AE E9 31 05 1F 1A 3E D9 0E 06 72 92 10 06
0E 00 54 70 2D 07 11 14 DC 0E 06 55 10 06 DD 0E 00 54 54 72 5B 2E
07 11 14 DE DF AB D5 6A 53 DF AB D5 6A 53 68 0C DF AB D5 30 53 54
1B FF B6 AC 5D 16 2F D1 AB 59 01 14 2B 03 17 19 04 03 18 1A 01 C7
14 0E 00 54 72 2D 07 19 01 00 19 01
)
*FORM* 2. TEST-LIST *FOR-VALUE*
#S(HASH-TABLE EQ (NIL . 94.) (ONE . 90.) (ALL . 22.)) MVCALLP *STACKZ*
C-FORM MVCALL PROGN MULTIPLE-VALUE-PROG1 ANODE SECLASS-OR-2 CONST :VALUE
#.#'VALUES :FORM #'VALUES MAKE-CONST (MVCALLP) (MV-TO-STACK) ((MVCALL))
0. MK-ANODE PROG1
) )
#Y(#:TOP-LEVEL-FORM-163 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
C-MULTIPLE-VALUE-CALL REMOVE-OLD-DEFINITIONS
#Y(C-MULTIPLE-VALUE-CALL
#101Y(00 00 00 00 00 01 63 00 D5 2E 02 0E 00 54 54 1C 80 47 0E 00 54 70
D8 68 05 5B A9 7B 00 DA 7B 00 0E 00 54 71 DB 8A 01 22 8B 01 7A 02
A9 85 A6 32 C7 14 0E 0A 55 10 0A AB DF 2E 05 11 14 A8 7B 04 E0 7B
04 16 02 7C 00 89 01 5E 16 02 E1 7B 00 E2 E3 AA 6A 65 2B 03 10 19
03 0E 00 54 70 5B 2E 03 19 01 C6 1A 4C
)
*FORM* 2. TEST-LIST C-FUNCTION-CALL ONE C-FORM (MVCALLP) 0. MVCALLP
MVCALL *STACKZ* ALL (MV-TO-STACK) (MVCALL) MULTIPLE-VALUE-CALL (T . T)
MK-ANODE
) )
#Y(#:TOP-LEVEL-FORM-164 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
C-MULTIPLE-VALUE-LIST REMOVE-OLD-DEFINITIONS
#Y(C-MULTIPLE-VALUE-LIST
#46Y(00 00 00 00 00 01 63 00 D5 D5 2B 03 02 0E 03 1B 08 0E 00 54 70 2D 05
19 01 0E 00 54 70 D8 68 05 DA DB AA D5 6A 53 AA C6 72 2B 03 09 19 02
)
*FORM* 2. TEST-LIST *FOR-VALUE* ALL C-FORM MULTIPLE-VALUE-LIST ANODE
((MV-TO-LIST)) MK-ANODE
) )
#Y(#:TOP-LEVEL-FORM-165 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
C-SETQ REMOVE-OLD-DEFINITIONS
#Y(C-SETQ
#115Y(00 00 00 00 00 01 63 00 D5 2E 02 63 00 6A 63 86 AA 05 D7 63 00 2E
04 0E 00 54 1C 33 0E 00 71 DA 5B 8A 02 21 8B 02 95 54 70 A8 DB 68
08 AA 85 2D 22 C2 4A 05 E1 AE 2E 04 4B E2 7B 03 16 03 94 54 54 EC
89 02 5F E3 AA AA 6A 65 2B 03 10 19 04 2C 05 19 01 A8 7B 03 AC DD
AA DE 6A 53 2E 0B EE AA A9 68 0C A8 7B 04 AD DD AA DE 6A 53 2E 0B
EF 16 01 1A 49
)
*FORM* 1. TEST-LIST "Odd number of arguments to SETQ: ~S" C-ERROR C-NIL
(NIL) ONE C-FORM ANODE 2. SECLASS-OR-2 C-VARSET
"Cannot assign to non-symbol ~S." (VALUES1) SETQ MK-ANODE
) )
#Y(#:TOP-LEVEL-FORM-166 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
C-PSETQ REMOVE-OLD-DEFINITIONS
#Y(C-PSETQ
#215Y(00 00 00 00 00 01 63 00 D5 2E 02 63 00 6A 63 86 AA 05 D7 63 00 2E
04 0E 00 54 1C 80 92 01 02 0E 00 71 8A 00 1E 8B 00 7A 01 8B 01 7A
02 A8 DA 68 07 AA 85 2D 80 7D C2 4A 05 DF AE 2E 04 4B 16 03 89 00
62 16 01 01 02 E0 AC AC 8A 01 80 4A 8B 01 8B 01 E1 A9 E2 6A 53 AD
81 0F 80 69 E1 AA E2 6A 53 AD 81 0F 80 68 E4 7B 06 A9 7B 06 E5 7B
05 A8 7B 05 63 0A D5 2F D1 AC E1 AB E2 6A 53 E1 AB E2 6A 53 68 12
2E 12 EE 0E 0A 54 0F 0A 16 02 8C 01 7A 01 62 01 89 01 FF B6 16 02
0E 13 1C 03 E8 7B 01 E9 A9 AC AC 6A 65 6B 02 21 2B 03 16 19 06 2C
05 19 01 A8 7B 05 AA A9 68 08 7B 04 DD 0E 0A 55 0F 0A 1A FF 79 A8
7B 06 A9 7B 06 1A FF A9 A9 7B 05 A8 7B 05 1A FF A0
)
*FORM* 1. TEST-LIST "Odd number of arguments to PSETQ: ~S" C-ERROR C-NIL
ONE C-FORM C-VARSET 0. *STACKZ* "Cannot assign to non-symbol ~S." (NIL)
ANODE 2. SECLASSES-COMMUTE (PUSH) (POP) SECLASS-OR-2 *FOR-VALUE* (NIL)
PSETQ MK-ANODE
) )
#Y(#:TOP-LEVEL-FORM-167 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
C-MULTIPLE-VALUE-SETQ REMOVE-OLD-DEFINITIONS
#Y(C-MULTIPLE-VALUE-SETQ
#166Y(00 00 00 00 00 01 63 00 D5 D5 2B 03 02 0E 00 54 70 D7 2E 02 0E 00
54 70 6A 63 0E 00 54 54 70 D8 68 05 0E 06 10 06 AC 85 A6 80 49 0E
00 54 70 DC AD DD 6A 53 5B 8A 02 1F 8B 02 A8 85 2D 80 48 CF 4A 05
E6 AC 2E 11 4B 16 01 E7 7B 00 E8 0E 06 55 0F 06 7A 02 89 02 61 AF
E8 87 01 2B 80 43 E9 B0 73 02 7B 00 DB AA B0 95 72 2B 03 0C 16 03
11 19 03 C9 1A 0D DB DC AD DD 6A 53 AD 63 0A 23 04 71 00 72 2B 03
0C 1A 67 A8 E1 E2 5B 66 03 0C 68 0F A8 7B 02 AB DC AA DD 6A 53 2E
10 ED 16 01 1A FF A6 7A 00 1A FF BE
)
*FORM* 3. TEST-LIST 0. ALL C-FORM *STACKZ* MULTIPLE-VALUE-SETQ ANODE 2.
*FOR-VALUE* ((VALUES1)) MK-ANODE NOP (NIL) C-VARSET SECLASS-OR-2 C-ERROR
"Cannot assign to non-symbol ~S." (POP) 1. NV-TO-STACK
) )
#Y(#:TOP-LEVEL-FORM-168 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
C-LET/LET* REMOVE-OLD-DEFINITIONS
#Y(C-LET/LET*
#390Y(00 01 00 00 00 02 63 00 D5 2E 02 0E 00 54 70 D7 2E 02 0E 00 54 71
5B 63 04 2F 64 3E 02 63 05 0E 05 10 05 0E 06 10 06 0E 07 10 07 0E
08 10 08 B5 2D 09 3E 02 93 10 0A 95 10 0B 2C 0C 0E 00 54 70 2D 0D
3E 02 D7 0E 05 55 0F 05 5B 0E 08 55 0F 08 63 05 63 08 AB AB 5E 1E
2B 03 0E 3E 03 89 1F 06 D7 0E 05 55 0F 05 E3 04 1E 72 67 10 AB AB
68 11 A8 AE B0 66 03 12 89 22 08 01 02 AF AF AF 1A 80 77 90 13 AE
AE 2B 03 14 1A 80 B7 8B 02 5D 18 36 01 6A A4 5D 19 5B 5D 1A 5B 5D
1B AF 66 08 1C A8 AC 0E 05 71 73 03 7B 08 8B 01 63 05 A9 93 54 72
A9 A9 2F D3 16 03 A9 5D 16 2F D1 A8 AB 2E 13 16 02 1A 28 8B 02 8B
02 E9 AA D5 86 53 1A 00 29 01 E9 AB 5D 16 30 53 0B 00 00 A8 65 17
01 8C 05 31 00 25 16 01 1B FF A4 A9 A9 2E 13 16 01 EA AC 77 CA 03
7A 02 7A 01 7A 00 94 1F 06 93 1F 03 92 20 42 16 03 A8 77 CC 00 5B
AA 6A 65 1A 27 03 21 1A 80 47 8B 00 8B 00 93 54 70 94 54 54 70 5D
1D AB 63 08 AB 73 04 AA 2D 1E 55 16 02 EA AB 77 CA 02 16 01 7A 00
92 20 5B 16 01 A8 77 CC 00 31 02 20 16 01 14 AB 5D 1F 63 05 5E 22
63 20 73 04 73 02 6B 03 20 89 22 FF B6 03 22 14 AD AC 73 01 6B 02
20 67 23 AF 68 24 AA 66 03 25 8A 02 0B B0 5D 16 2F D1 AF AB 9C 72
2F D1 AE 2D 26 15 16 0A 12 02 16 02 12 04 19 05
)
*FORM* 2. TEST-LIST 0. *FENV* *STACKZ* *DENV* *VENV* *VENVC*
PROCESS-DECLARATIONS *SPECIALS* *IGNORES* PUSH-SPECIALS ANALYZE-LETLIST
PROCESS-MOVABLE-VAR-LIST PROGN C-FORM CHECKING-MOVABLE-VAR-LIST
C-MAKE-CLOSURE C-BIND-MOVABLE-VAR-ANODE MAPCAP VAR 1.
#Y(C-LET/LET*-1
#29Y(00 01 00 00 00 02 D5 AA D6 30 53 70 A8 02 52 1D 0A 61 00 00 A9 36
03 2F DC 19 03 19 03
)
NIL ANODE 2.
)
:NAME :SPECIALP :CLOSUREP :STACKZ MAKE-VAR GET C-BIND-MOVABLE-VAR UNWIND
*FOR-VALUE* LET* LET ANODELIST-SECLASS-OR SECLASS-WITHOUT MK-ANODE
OPTIMIZE-VAR-LIST
) )
#Y(#:TOP-LEVEL-FORM-169 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
C-MULTIPLE-VALUE-BIND REMOVE-OLD-DEFINITIONS
#Y(C-MULTIPLE-VALUE-BIND
#363Y(00 00 00 00 00 01 63 00 D5 2E 02 0E 00 54 70 D7 2E 02 0E 00 54 70
A8 5B 1A 80 4F DB 8B 01 0E 00 54 54 70 73 02 73 01 0E 00 54 54 71
6B 02 1F 2D 08 19 02 0E 00 54 54 70 5B 68 08 E6 0E 00 54 54 54 72
67 08 E7 E8 AB E9 6A 53 E8 AB E9 6A 53 68 16 AB AB 73 02 2B 03 17
16 02 1A 81 06 7E 01 00 14 85 2D 04 D8 A9 2E 05 7A 01 A9 84 B6 6F
16 02 A8 6A 63 DA 87 01 2B FF A2 0E 00 54 54 71 5B 63 09 2F 64 3E
02 63 0A 0E 0A 10 0A 0E 0B 10 0B 0E 0C 10 0C 0E 0D 10 0D B5 2D 0E
3E 02 93 10 0F 95 10 10 2C 11 8A 17 FF 8B 0E 00 54 54 70 5D 18 68
08 5B 0E 0D 55 0F 0D 5E 18 2D 19 3E 02 D7 0E 0A 55 0F 0A 14 63 0D
AB 5B 8A 01 16 8B 01 A8 0E 0C 55 0F 0C 63 0A 7B 01 A8 2D 1A 16 01
7A 01 89 01 6A A8 30 65 16 01 EA E6 04 1D 72 67 08 AD 67 1B AF 5D
1C 5E 21 6A 63 73 02 AA AE B0 66 03 1D B0 AE B3 5B 8A 01 1D 8B 01
8B 04 8B 04 66 03 1E 6A 64 A9 79 02 20 00 8C 03 8C 03 7A 03 62 03
62 03 89 01 63 A8 30 65 16 03 EA AD 5D 1F 63 0A 5E 23 63 20 73 04
73 02 6B 03 20 6B 02 1F E7 E8 B2 E9 6A 53 E8 AD E9 6A 53 68 16 B1
68 21 AA 66 03 17 8A 02 0A AE DA 2F D1 AD AB 9A 72 2F D1 B0 2D 22
15 16 09 12 02 16 02 12 04 19 05
)
*FORM* 3. TEST-LIST 0. "Only symbols may be used as variables, not ~S"
C-ERROR 1. LET C-FORM *FENV* *STACKZ* *DENV* *VENV* *VENVC*
PROCESS-DECLARATIONS *SPECIALS* *IGNORES* PUSH-SPECIALS PROGN
MULTIPLE-VALUE-BIND ANODE 2. SECLASS-OR-2 MK-ANODE ALL
PROCESS-FIXED-VAR-LIST BIND-FIXED-VAR-2 CHECKING-FIXED-VAR-LIST
NV-TO-STACK C-MAKE-CLOSURE C-BIND-FIXED-VAR UNWIND *FOR-VALUE*
SECLASS-WITHOUT OPTIMIZE-VAR-LIST
) )
#Y(#:TOP-LEVEL-FORM-170 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
C-COMPILER-LET REMOVE-OLD-DEFINITIONS
#Y(C-COMPILER-LET
#110Y(00 00 00 00 00 01 63 00 D5 2E 02 0E 00 54 70 D7 2E 02 0E 00 54 70
01 02 8A 02 3F 8B 02 85 2D 25 94 53 1F 28 94 53 70 86 2D 22 94 53
54 1F 1D 94 53 54 54 1B 17 94 53 70 7B 01 94 53 54 70 2F 60 14 7B
00 1A 10 8B 02 7B 01 00 1A 74 C2 4A 06 D9 8B 06 2E 04 4B 7A 02 89
02 41 A9 6A 65 A9 30 65 13 DA 0E 00 54 54 72 2D 07 11 18 01 19 04
)
*FORM* 2. TEST-LIST 0. C-ERROR "Illegal syntax in COMPILER-LET: ~S" PROGN
C-FORM
) )
#Y(#:TOP-LEVEL-FORM-171
#23Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 D7 2D 01 D7 D8 30 96 C1 19 01)
C-BLOCK REMOVE-OLD-DEFINITIONS
#Y(C-BLOCK
#147Y(00 00 00 00 00 01 63 00 D5 2E 02 0E 00 54 70 A8 85 2D 0A C1 4A 05
D8 AC 2E 03 4B 74 00 D9 0E 06 55 10 06 63 07 67 08 DD 63 0A DF AB
E0 E1 36 01 6A A4 E2 5B E3 5B E4 63 06 66 08 11 E4 63 06 E6 5B E7
63 07 66 0C 14 AD 93 72 0E 15 55 10 15 5D 16 0E 00 54 54 72 67 17
D9 AD 5D 18 85 53 1D 63 06 5D 1E 2F D1 D9 5D 19 AA D5 6A 53 AA B0
59 02 14 2B 03 1D 16 01 11 16 02 11 19 02 D9 5D 19 AA D5 6A 53 5D
1A B4 67 1B B1 73 03 AB 5D 1C B2 59 04 1A 5D
)
*FORM* 2. TEST-LIST C-ERROR #1="Block name must be a symbol, not ~S"
BLOCK *STACKZ* *FOR-VALUE* MAKE-LABEL :FNODE *FUNC* :LABEL :CONSVAR :NAME
:SPECIALP :CLOSUREP :STACKZ MAKE-VAR :USED-FAR :FOR-VALUE MAKE-BLOCK
*BENV* PROGN C-FORM 5. ANODE BLOCK-OPEN NEW-CONST (BLOCK-CLOSE) MK-ANODE
0.
)
C-RETURN-FROM
#Y(C-RETURN-FROM
#216Y(00 00 00 00 00 01 63 00 D5 D6 2B 03 03 0E 00 54 70 A8 85 2D 0A C2
4A 05 D9 AC 2E 04 4B 74 00 A8 67 06 8A 00 25 DC A9 85 57 80 44 92
1F 80 A3 0E 00 54 54 70 5D 19 68 0A E1 5D 1A AA E1 AD 67 1B 73 02
59 02 14 2B 03 12 19 04 DB AA 2E 04 19 03 E1 E2 AA E3 63 10 DC AF
D6 30 53 71 DC B0 DD 6A 53 73 04 E5 DC AF D5 6A 53 73 02 59 03 1A
55 0E 00 54 54 70 DC AA DD 6A 53 68 0A DC AA DF 6A 53 0E 0C 21 4C
0E 13 1B 31 63 0C 1A 1C 03 18 1A 34 AA E8 AA DD 6A 53 36 03 69 E0
E8 AA DD AB 30 54 16 01 E8 A9 E9 78 53 00 A8 DC AC DF 30 53 22 60
16 01 DC AA 5D 16 5C 30 54 E1 5D 17 AA DC AD DD 86 53 49 00 14 E1
AE 73 02 73 01 31 02 20 55 1A FF 72 5D 1C 2D 1D 19 03
)
*FORM* 2. 3. TEST-LIST C-ERROR #1# BENV-SEARCH
"RETURN-FROM block ~S is impossible from here." BLOCK 6. C-FORM 1. *FUNC*
RETURN-FROM (T . T) UNWIND *STACKZ* JMP MK-ANODE *NO-CODE* FNODE 19. 5.
(T . T) ((VALUES0)) ALL (T . T) NEW-CONST C-RETURN-FROM COMPILER-ERROR
) )
#Y(#:TOP-LEVEL-FORM-172 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
C-TAGBODY REMOVE-OLD-DEFINITIONS
#Y(C-TAGBODY
#315Y(00 00 00 00 00 01 63 00 D5 2E 02 0E 00 71 01 02 8A 02 21 8B 02 92
20 15 A8 86 2D 04 89 00 80 AF A8 85 2F 80 AA C2 4A 05 D9 AC 2E 04
4B 16 01 7A 02 89 02 5F A9 6A 65 A9 6A 65 3C 02 16 03 3E 02 DA 0E
07 55 10 07 DC 63 09 DE AE DF E0 36 01 6A A4 E1 5B E2 5B E3 63 07
66 08 10 E3 63 07 E5 B5 6A 63 36 07 C4 EC 69 1B 66 0A 12 E7 98 6F
00 93 72 0E 14 55 10 14 5B E9 0E 00 71 B3 B3 8A 02 21 8B 02 92 1F
80 54 A8 5B 68 16 AD 5D 17 AA 5D 18 6A 53 2E 19 EF A8 7B 06 16 01
16 01 7A 02 89 02 5F AC 78 65 04 16 03 5D 1A AE 5D 1B 6A 53 6A 63
DA 87 01 2E 3B 0E 1F 1C 07 A9 5D 20 79 02 20 01 5D 1A A9 AB 2B 03
21 16 02 11 16 01 11 19 03 A8 7B 02 5B 67 03 7B 01 1A FF 53 94 1F
FF BC A8 8B 03 86 28 FF B5 7A 02 8B 01 7A 02 7B 05 1A FF AA 5D 1A
AE 5D 1B 6A 53 A8 6A 63 DA 5B 1A 14 B5 AC AB 6B 01 01 B8 36 06 03
1C EB 6A 7B 6A 5F 7B 00 7C 01 A9 AB 88 01 2B 66 A8 30 65 16 01 EA
63 07 5D 1A AB 73 02 2F D1 5D 1D AA AA 6B 02 1F AD 5D 1E 31 02 20
55 EE 16 03 1A FF 85
)
*FORM* 1. TEST-LIST MAKE-LABEL C-ERROR
"Only numbers and symbols are valid tags, not ~S" 0. *STACKZ* :FNODE
*FUNC* :LABELLIST :CONSVAR :NAME :SPECIALP :CLOSUREP :STACKZ MAKE-VAR
:USED-FAR MAKE-TAGBODY #.#'VECTOR *GENV* (NIL) C-FORM ANODE 2.
SECLASS-OR-2 TAGBODY 5. #.#'EQL TAGBODY-OPEN ((TAGBODY-CLOSE-NIL))
*FOR-VALUE* ((NIL)) MK-ANODE
) )
#Y(#:TOP-LEVEL-FORM-173 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
C-GO REMOVE-OLD-DEFINITIONS
#Y(C-GO
#222Y(00 00 00 00 00 01 63 00 D5 D5 2B 03 02 0E 00 54 70 A8 86 2D 03 89
00 08 A8 85 2F 04 D7 A9 2E 04 A8 2D 05 3E 02 8A 01 1B DB AA 85 57
39 93 1F 80 A7 DE 5D 1A DE AC 67 1B AC 73 03 59 01 14 2B 03 11 19
04 DA AB 2E 04 19 04 DE DF E0 63 0D DB AE E2 6A 53 E3 6B 03 1F E4
AC DB AF D5 6A 53 69 B8 73 02 59 02 1A 57 DB AA DC 6A 53 0E 09 21
5A E6 0E 13 1B 80 52 DB AB E8 6A 53 A8 6A 63 E6 1A 10 15 16 02 1A
18 AA A9 6B 01 01 AF 85 28 72 7C 00 A8 AA 88 01 2B 6F AE AB 2F 18
93 16 03 EA 63 09 1A 1B AB E9 AA 5D 16 6A 53 36 03 69 E0 E9 AA 5D
16 AB 30 54 16 01 E9 A9 5D 17 78 53 00 A8 DB AD DC 30 53 22 5D 16
01 DE 5D 18 5D 19 DE AE AD 73 03 73 02 2B 03 11 19 05 5D 1C 2D 1D
19 04
)
*FORM* 2. TEST-LIST "Tag must be a symbol or a number, not ~S" C-ERROR
GENV-SEARCH "GO to tag ~S is impossible from here." TAGBODY 1. *FUNC* GO
(T . T) UNWIND *STACKZ* 3. (NIL) JMP MK-ANODE 0. *NO-CODE* 5. FNODE 8.
19. (T . T) (VALUES0) (T . T) NEW-CONST C-GO COMPILER-ERROR
) )
#Y(#:TOP-LEVEL-FORM-174 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
C-FUNCTION REMOVE-OLD-DEFINITIONS
#Y(C-FUNCTION
#263Y(00 00 00 00 00 01 63 00 D5 D6 2B 03 03 0E 00 54 71 0E 00 54 70 89
01 80 D6 A8 86 2D 80 D1 A8 2D 04 3E 03 AA D9 36 03 83 DC 3A AA 23
13 80 60 AA 23 16 80 61 AA 24 1A 80 80 E0 AA 86 57 80 6F DE 5D 1B
5D 1C E0 AD 5D 1D 30 53 14 73 02 59 01 14 2B 03 12 19 06 E0 E1 99
56 14 E2 DE B2 73 02 2B 04 0F 1A 66 0E 06 1C 17 AB 83 54 13 AB 63
07 DC 36 02 83 DC 0A AB 63 09 DC 36 02 2F E0 0F 09 DE DF AD 83 01
50 E0 AE 67 10 73 02 CF 55 1A 40 E8 AC 2E 15 19 06 DE 5D 17 E0 AC
67 10 73 02 5D 18 E0 AD 67 10 73 02 5D 19 31 03 1F 1A FF A1 5D 1E
AA 5D 1D 6A 53 2D 1F 19 06 5D 20 2D 21 19 06 96 1A 23 0E 23 1B 03
0E 24 51 10 23 8A 05 04 AC 85 2D 6D 63 25 5D 26 A9 5D 1D 78 53 00
63 27 30 AB 0F 27 14 2E 28 14 8C 04 68 29 2D 2A 11 19 04 63 00 2F
C5 70 92 1F 09 8B 00 24 22 04 92 54 20 42 5D 2B A9 2E 15 19 04
)
*FORM* 2. 3. TEST-LIST FENV-SEARCH (NIL) *COMPILING-FROM-FILE*
*KNOWN-FUNCTIONS* #.#'EQ *UNKNOWN-FUNCTIONS* FUNCTION (T) CONST :VALUE
:FORM MAKE-CONST NEW-CONST ((SYMBOL-FUNCTION)) MK-ANODE MACRO
"~S is not a function. It is a locally defined macro." C-ERROR GLOBAL (T)
(PUSH) ((SVREF)) LOCAL (NIL) FCONST 1. VAR C-VAR C-FUNCTION
COMPILER-ERROR LAMBDA *NO-CODE* *FOR-VALUE* *FUNC* FNODE
*ANONYMOUS-COUNT* SYMBOL-SUFFIX C-LAMBDABODY C-FNODE-FUNCTION
"Only symbols and lambda expressions are function names, not ~S"
) )
#Y(#:TOP-LEVEL-FORM-175
#23Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 D7 2D 01 D7 D8 30 96 C1 19 01)
C-FLET REMOVE-OLD-DEFINITIONS
#Y(C-FLET
#359Y(00 00 00 00 00 01 63 00 D5 2E 02 0E 00 54 70 D7 2E 02 0E 00 54 70
01 02 8A 02 20 8B 02 92 1F 0A 8B 00 86 2D 05 92 54 20 80 AF C7 4A
07 DE DF AD 2B 03 09 4B 16 01 7A 02 89 02 60 A9 6A 65 A9 6A 65 3C
02 16 03 3E 02 63 0C 0E 0C 10 0C 0E 0D 10 0D 0E 0E 10 0E D7 0E 0C
55 0F 0C 5B 0E 0D 55 0F 0D 63 0C 63 0D B5 B5 01 03 8A 04 80 4F 8B
04 7B 00 8B 03 D9 A9 E3 6A 53 85 A6 80 79 A8 67 12 7B 02 DA 0E 0C
55 0F 0C E7 36 01 6A A4 E8 5B E9 5B 5D 16 5C 5D 17 5B 5D 18 5B 5D
19 63 0C 5D 1A 63 0D 66 10 1B A9 73 01 93 72 7B 02 A8 7B 04 16 01
16 01 8C 04 7A 04 62 04 89 04 FF B1 AA 6A 65 AA 6A 65 5D 1C 63 1D
96 72 30 65 6F 00 3C 03 16 05 3E 03 92 10 1D AD 5B 1A 34 63 04 D9
A9 DA 78 53 00 8B 01 68 07 8C 01 68 08 8B 01 7B 03 A8 7B 02 16 01
1A FF 3F A8 73 01 E4 AA 2E 11 72 7B 01 1A FF AE 7E 01 00 14 0E 0E
55 0F 0E 7A 01 A9 84 B6 71 16 02 5D 1E 0E 00 54 54 72 67 1F AE AE
68 20 DF AF AB 73 01 6B 02 20 67 21 B1 68 22 AA B3 B5 66 03 23 90
24 B3 B3 66 03 25 AD 5D 26 63 0C 5E 1A 63 27 73 04 73 02 6B 03 20
66 03 28 8A 01 0A B2 DA 2F D1 B1 AA 9E 72 2F D1 B0 2D 29 15 16 02
11 16 05 12 03 19 04
)
*FORM* 2. TEST-LIST 0. *FUNC* FNODE 1. SYMBOL-SUFFIX C-LAMBDABODY C-ERROR
#1="Illegal function definition syntax in ~S: ~S" FLET *STACKZ* *VENVC*
*VENV* 9. :VALUE MAKE-CONST C-FNODE-FUNCTION :NAME :SPECIALP :CONSTANTP
:USEDP :REALLY-USEDP :CLOSUREP :STACKZ :VENVC MAKE-VAR #.#'VECTOR *FENV*
PROGN C-FORM CHECKING-MOVABLE-VAR-LIST ANODELIST-SECLASS-OR
SECLASS-WITHOUT C-MAKE-CLOSURE C-BIND-MOVABLE-VAR-ANODE MAPCAP UNWIND
*FOR-VALUE* MK-ANODE OPTIMIZE-VAR-LIST
)
C-LABELS
#Y(C-LABELS
#431Y(00 00 00 00 00 01 63 00 D5 2E 02 0E 00 54 70 D7 2E 02 63 04 0E 04
10 04 0E 05 10 05 0E 06 10 06 D7 0E 04 55 0F 04 5B 0E 05 55 0F 05
63 04 63 05 0E 00 54 70 01 05 8A 05 22 8B 05 92 1F 0A 8B 00 86 2D
05 92 54 20 80 53 D3 4A 09 5D 16 5D 17 AD 2B 03 15 4B 16 01 7A 05
89 05 5E AC 6A 65 AC 6A 65 AC 6A 65 AC 6A 65 AC 6A 65 3C 05 16 06
3E 05 AC A9 5B 8A 02 11 8B 02 7B 00 8B 01 7B 00 8C 02 7A 02 62 02
89 02 6F 63 18 7B 00 5D 19 A9 30 65 35 00 16 03 10 18 AE 5B 1A 80
51 8B 00 7B 05 DB 0E 04 55 0F 04 DC 36 01 6A A4 DD 5B DE 5B DF 5C
E0 5B E1 5B E2 63 04 E3 63 05 66 10 10 7B 04 63 11 E6 A9 DB 78 53
00 8B 01 68 13 7B 03 8C 00 7B 02 5B 93 54 70 2D 14 3F 72 97 53 72
7B 01 1A FF 73 7E 01 00 14 0E 06 55 0F 06 7A 01 A9 84 B6 71 16 02
90 1A AE AE AE 6B 02 17 5B A9 B1 1A 1E 16 03 1A 1F 8B 01 93 1F 77
8B 01 A9 5D 1B AA 5D 1C 30 53 71 68 1D 7B 04 16 02 7A 01 7A 00 93
20 63 16 02 A8 77 CC 00 5D 1E 0E 00 54 54 72 67 1F B1 AB 8A 01 2D
8B 01 8B 01 E6 A9 5D 20 6A 53 86 A6 15 5D 1B AA 5D 21 5C 30 54 A8
67 22 5D 1B AB 5D 23 AB 30 54 16 01 16 02 8C 01 7A 01 62 01 89 01
53 16 02 B1 AA 68 24 5D 17 AB AB 73 01 6B 02 20 67 25 B4 68 26 AA
B7 B9 66 03 27 90 28 B6 AF 66 03 29 AD 5D 2A 63 04 5E 1E 63 2B 73
04 73 02 6B 03 20 66 03 2C 8A 01 0A B6 DB 2F D1 B5 AA A2 72 2F D1
B3 2D 2D 15 16 04 11 16 07 12 03 19 02
)
*FORM* 2. TEST-LIST 0. *STACKZ* *VENVC* *VENV* 1. :NAME :SPECIALP
:CONSTANTP :USEDP :REALLY-USEDP :CLOSUREP :STACKZ :VENVC MAKE-VAR *FUNC*
FNODE SYMBOL-SUFFIX ANALYZE-LAMBDALIST C-ERROR #1# LABELS *FENV*
#.#'VECTOR C-LAMBDABODY VAR 10. C-FNODE-FUNCTION PROGN C-FORM 9. 3.
NEW-CONST 4. CHECKING-MOVABLE-VAR-LIST ANODELIST-SECLASS-OR
SECLASS-WITHOUT C-MAKE-CLOSURE C-BIND-MOVABLE-VAR-ANODE MAPCAP UNWIND
*FOR-VALUE* MK-ANODE OPTIMIZE-VAR-LIST
) )
#Y(#:TOP-LEVEL-FORM-176 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
C-MACROLET REMOVE-OLD-DEFINITIONS
#Y(C-MACROLET
#73Y(00 00 00 00 00 01 63 00 D5 2E 02 0E 00 54 70 D7 2E 02 0E 00 54 70 5B
8A 01 18 8B 01 A8 67 04 69 60 8B 01 A8 7B 03 D9 94 72 7B 03 16 03 7A
01 89 01 68 63 06 7B 00 DB A9 30 65 35 00 10 06 DC 0E 00 54 54 72 2D
09 11 19 03
)
*FORM* 2. TEST-LIST 0. MAKE-MACRO-EXPANSION MACRO *FENV* #.#'VECTOR PROGN
C-FORM
) )
#Y(#:TOP-LEVEL-FORM-177 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
C-EVAL-WHEN REMOVE-OLD-DEFINITIONS
#Y(C-EVAL-WHEN
#89Y(00 00 00 00 00 01 63 00 D5 2E 02 0E 00 54 70 D7 2E 02 01 02 0E 00 54
70 5B 1A 28 75 03 1A 22 75 02 1A 1E A8 2D 0A 8A 02 2C A8 2D 0B 19 04
7E 01 00 14 23 04 66 A8 23 05 66 A8 23 06 04 DB A9 2E 08 7A 01 A9 84
B6 67 16 02 DD 0E 00 54 54 72 89 01 51 89 02 54 2C 0C 19 04
)
*FORM* 2. TEST-LIST 0. LOAD COMPILE EVAL
"EVAL-WHEN situation must be EVAL or LOAD or COMPILE, but not ~S" C-ERROR
PROGN C-EVAL-WHEN-COMPILE C-FORM C-NIL
) )
#Y(#:TOP-LEVEL-FORM-178 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
C-COND REMOVE-OLD-DEFINITIONS
#Y(C-COND
#70Y(00 00 00 00 00 01 63 00 D5 2E 02 0E 00 71 8A 00 1A 8B 00 92 1F 18 8B
00 93 54 1B 1A DC A9 DB 97 54 72 59 03 16 02 EA 2D 09 19 01 00 1A 78
D7 A9 2E 04 16 01 1A 70 D9 A9 DA 96 54 72 DB 98 54 72 59 04 16 02 1A
60
)
*FORM* 1. TEST-LIST "COND clause without test: ~S" C-ERROR IF PROGN COND
OR C-FORM
) )
#Y(#:TOP-LEVEL-FORM-179 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
C-CASE REMOVE-OLD-DEFINITIONS
#Y(C-CASE
#455Y(00 00 00 00 00 01 63 00 D5 2E 02 0E 00 54 70 0E 00 54 71 01 03 AB
5B 1A 80 82 D7 A9 2E 04 1A 80 79 74 00 1A 80 6C 75 00 ED 1A 80 66
93 1A 1A 7E 01 00 1F 66 8B 00 89 03 68 A8 02 21 69 A8 23 05 65 5B
A9 85 34 66 A9 59 01 14 5B 1A 39 00 29 01 36 01 30 A4 0B 00 00 A8
65 09 01 DE 60 02 00 AF 73 02 73 01 DF 60 04 00 AF 97 6C 73 03 73
03 2D 0C 19 07 7E 01 00 14 B0 DA 36 02 83 DC 06 A8 7B 07 A8 7B 02
7A 01 A9 84 B6 69 16 02 A8 78 65 01 16 01 A8 94 54 72 7B 05 16 01
7A 01 A9 84 B6 FF 8E 16 02 89 00 03 DB 7B 02 AA 78 65 02 A9 78 65
01 EA 6A 63 DC 87 01 2F FF 93 AB E1 68 0C 01 02 AC 5B 1A 80 58 92
EE 16 01 1A 80 4F DF 93 54 72 67 0C 93 53 1F 6F 8B 01 5B 67 0E AA
73 03 7B 03 16 01 1A 37 AA 67 11 A9 5B 1A 14 92 54 54 53 19 0B 7E
01 00 AA 8B 01 E6 36 02 83 DC 6E 7A 01 A9 84 B6 6E 96 19 0B D3 1A
33 7E 01 00 53 1B FF BC 02 10 0F DF 96 54 72 5B 2E 0C 11 7A 01 A9
84 B6 68 16 02 A8 78 65 00 AA 7F 10 FF B8 5B 67 0E 63 13 67 0E 90
14 AE 87 00 26 4C 03 16 14 5D 17 AE 5D 18 AE 6B 00 17 AF 73 01 31
02 20 72 67 19 AF 5D 1A AC 5B B1 1A 28 8B 00 92 54 70 5B 8B 02 1A
0B 8B 00 A8 96 72 7B 02 16 01 7A 00 92 20 72 16 01 A8 2F CC 16 01
EA AB 77 CA 02 16 01 7A 00 92 20 55 16 01 A8 77 CC 00 B0 5D 1B B3
6B 00 17 6B 04 1F 5B B0 1A 18 8B 00 92 54 70 93 54 54 70 5D 1C B3
73 02 73 03 AB 77 CA 02 16 01 7A 00 92 20 65 16 01 A8 77 CC 00 AF
B2 B0 73 03 6B 02 20 6B 02 1F 2B 03 1D 19 0B
)
*FORM* 1. TEST-LIST "CASE clause without objects: ~S" C-ERROR OTHERWISE
#.#'EQ (T NIL) 2.
#Y(C-CASE-IFIFY
#73Y(00 01 00 00 00 02 89 01 09 00 19 02 02 1A 2C 8A 01 77 D5 94 53 70
92 1F 73 D6 5B AA 1A 12 8B 00 D7 61 00 00 D8 AB 73 02 73 03 7B 02
16 01 7A 00 92 20 6B 16 01 A8 2F CC 16 01 55 EA D9 96 53 54 72 8C
04 64 4A 59 04 19 02
)
NIL IF OR EQL QUOTE PROGN
)
LET PROGN C-FORM ONE MAKE-LABEL *NO-CODE* ANODE-CONSTANTP
ANODE-CONSTANT-VALUE #.#'EQL *FOR-VALUE* EQL=EQ EQ EQL CASE #.#'THIRD
ANODELIST-SECLASS-OR JMPHASH #.#'SECOND JMP MK-ANODE
) )
#Y(#:TOP-LEVEL-FORM-180 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
C-FUNCALL-NOTINLINE REMOVE-OLD-DEFINITIONS
#Y(C-FUNCALL-NOTINLINE
#73Y(00 02 00 00 00 03 A9 D4 2E 01 AA D6 68 03 D8 0E 05 55 10 05 AD DA AD
73 02 8A 01 18 8B 01 D6 68 03 A8 7B 01 16 01 DB 7B 00 D8 0E 05 55 0F
05 7A 01 89 01 68 DC B0 6A 63 73 02 7B 00 DC DD AA 6A 65 2B 03 0A 16
02 11 19 04
)
0. TEST-LIST ONE C-FORM 1. *STACKZ* (FUNCALLP) (PUSH) FUNCALL (T . T)
MK-ANODE
) )
#Y(#:TOP-LEVEL-FORM-181 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
C-FUNCALL-INLINE REMOVE-OLD-DEFINITIONS
#Y(C-FUNCALL-INLINE
#828Y(00 04 00 00 00 05 AA D4 2E 01 8B 02 7A 03 2D 02 3E 0D 89 07 0F 89
06 0C 89 05 09 89 04 06 89 03 03 8A 02 03 D7 2D 04 B4 6A 63 B4 6A
63 BA 6A 63 89 0B 80 8F A8 AB AB 6B 02 33 88 01 2E 80 84 C3 4A 06
DA 5E 18 2E 05 4B DB A9 AC AC 6B 02 33 6B 01 34 1A 80 66 0E 10 1A
80 C0 02 10 1B 8B 05 5B 2E 19 11 04 38 10 0C 04 3A 10 0D 04 3C 10
0E 04 3E 10 0F 04 40 10 10 8B 5C 7A 5D 5D 18 2E 19 12 05 1A 81 3A
00 1A 81 6E 5D 1C 04 4A 55 1A 81 99 36 01 6A A4 B9 A9 73 01 79 02
20 11 B8 5B 73 01 79 02 20 10 B7 5B 73 01 79 02 20 0F 7C 04 DC DD
AA 73 02 73 02 7B 15 16 01 7C 01 A9 A9 88 01 30 4F 16 02 A8 AB 88
01 2D 18 C3 4A 06 DE 5E 18 2E 05 4B BB AB AA 6B 01 34 5B 69 C6 79
02 20 13 94 EA 63 0B 63 0C 63 0D 63 0E 63 0F 63 10 63 0B 8A 18 02
0E 0C 14 63 11 8A 1A 02 0E 0D 14 8A 1B 02 0E 0E 14 8A 1C 02 0E 0F
14 89 1D FF 48 E6 5E 21 73 02 E7 63 10 36 05 30 6C 55 10 10 9A 10
0B 9C 10 0C 9E 10 11 A0 10 0D A2 10 0E A4 10 0F 5E 33 5C 63 0D 2F
64 3E 02 00 10 14 00 10 15 01 0D BB 2D 16 3E 02 15 0F 15 15 0F 14
2C 17 DB 0E 0B 55 0F 0B 5B 0E 11 55 0F 11 0E 0B EB 0E 11 EA 5E 45
8A 00 38 8B 4A 7A 4B 04 36 10 0C 04 38 10 0D 04 3A 10 0E 04 3C 10
0F 04 3E 10 10 B7 5D 18 2E 19 12 05 14 8B 02 A9 68 1A A9 7B 0F A8
7B 10 A8 0E 0C 55 0F 0C 16 03 7A 00 89 00 48 B5 78 65 0D B4 78 65
0C 16 01 5E 44 5E 44 5E 44 8A 02 80 5A 04 4C 51 51 14 89 00 FE A2
8B 02 5D 18 2E 19 14 8B 04 A9 68 1A A9 7B 0F A8 7B 10 A8 0E 0C 55
0F 0C A8 AA 73 02 8B 04 23 07 FE AA AB 5D 18 68 19 8B 05 A9 68 1A
A9 7B 10 A8 7B 11 A8 0E 0C 55 0F 0C A8 AA 59 02 16 02 72 7B 0C 16
03 8C 02 8C 02 7A 02 62 02 62 02 89 02 FF A6 B5 78 65 0D B4 78 65
0C B3 78 65 0B B2 78 65 0A B1 78 65 09 16 03 5E 41 23 07 35 89 49
FE 60 00 14 04 35 10 0C 04 37 10 0D 04 39 10 0E 04 3B 10 0F 04 3D
10 10 B7 5D 18 2E 19 12 05 14 5E 43 A9 68 1A A9 7B 07 A8 7B 08 A8
0E 0C 55 0F 0C 16 03 5E 3A 5E 3A 8A 01 23 8B 00 A8 5D 18 68 19 8B
03 A9 68 1A A9 7B 07 A8 7B 08 A8 0E 0C 55 0F 0C 16 03 8C 01 7A 01
62 01 89 01 5D AD 78 65 05 AC 78 65 04 16 02 5D 1D A7 72 67 19 B5
B4 B3 B1 B0 6B 05 20 B6 B6 68 1E B5 B5 68 1E B4 B4 68 1E B2 B2 68
1E B1 B1 68 1E 6B 05 20 A8 AC AE 66 03 1F 90 20 B9 B9 66 03 21 5B
B4 1A 21 90 20 94 54 35 00 1A 0D 8B 00 90 20 93 53 6F 00 93 54 1B
6C 00 14 6B 02 20 AB 77 CA 02 16 01 7A 00 92 20 64 16 01 A8 77 CC
00 90 20 B4 B4 66 03 21 90 20 B3 B3 66 03 21 AF 5D 22 63 0B 5E 40
63 23 73 04 73 02 6B 06 20 5D 24 B8 B7 B6 B4 B3 B1 73 01 6B 06 20
67 25 AC 68 26 AA 66 03 27 8A 02 0A AE D4 2F D1 AD AB 9A 72 2F D1
AB 2D 28 15 16 11 12 02 16 02 12 07 19 21
)
1. TEST-LIST ANALYZE-LAMBDALIST C-FUNCALL-INLINE COMPILER-ERROR C-ERROR
"Too many arguments to ~S" 0. DECLARE IGNORE "Too few arguments to ~S"
*STACKZ* *VENV* *FENV* *BENV* *GENV* *DENV* *VENVC* INLINING
#Y(C-FUNCALL-INLINE-1 #12Y(00 01 00 00 00 02 8B 01 BE 52 19 02) INLINING)
*SPECIALS* *IGNORES* PROCESS-DECLARATIONS PUSH-SPECIALS ONE C-FORM
BIND-MOVABLE-VAR *NO-CODE* LIST PROGN CHECKING-MOVABLE-VAR-LIST
C-MAKE-CLOSURE C-BIND-MOVABLE-VAR-ANODE MAPCAP UNWIND *FOR-VALUE* FUNCALL
ANODELIST-SECLASS-OR SECLASS-WITHOUT MK-ANODE OPTIMIZE-VAR-LIST
) )
#Y(#:TOP-LEVEL-FORM-182 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
C-LOCAL-FUNCTION-CALL REMOVE-OLD-DEFINITIONS
#Y(C-LOCAL-FUNCTION-CALL
#185Y(00 03 00 00 00 04 00 29 01 76 04 00 00 8B 03 96 54 1B 80 4B D5 A9
D6 6A 53 D5 AA D7 6A 53 D5 AB D8 6A 53 D5 AC D9 6A 53 D5 AD DA 6A
53 D5 AE DB 6A 53 3C 06 3E 06 99 29 01 76 03 00 00 B2 60 09 00 B0
B0 B0 60 05 00 B0 B0 66 08 08 A8 DD 36 03 83 DC 80 4A E5 60 0A 00
73 02 B4 2E 12 19 0E 96 54 40 3E 0D B4 6A 63 B4 6A 63 B2 BE 52 51
14 B2 B2 AF 3C 06 16 0D 1A FF BB CA 1A 0A 9B 29 01 DF B9 B9 89 11
74 BE 14 B8 6A 63 6B 04 33 63 0D 73 03 59 01 0B 00 00 A8 2A 0E 01
16 01 1A 15 B3 60 0A 00 B1 B1 B1 60 06 00 B1 5B B8 0E 0A 21 4D B1
2A 0F 01 14 2B 09 10 19 0E
)
0. FNODE 10. 11. 12. 13. 14. 15. TEST-ARGUMENT-SYNTAX
(NO-KEYS STATIC-KEYS) *FUNC* JSR 1. *FUNC-START-LABEL*
#Y(C-LOCAL-FUNCTION-CALL-1 #11Y(00 00 00 00 00 01 07 00 00 19 01) NIL)
#Y(C-LOCAL-FUNCTION-CALL-2
#29Y(00 00 00 00 00 01 D5 61 01 00 73 02 D6 68 03 07 00 00 1B 06 C3 14
59 02 19 01 C2 1A 78
)
NIL FUNCTION ONE C-FORM (CALLCKEY) (CALLC)
)
C-DIRECT-FUNCTION-CALL FUNCTION C-FUNCALL-NOTINLINE
) )
#Y(#:TOP-LEVEL-FORM-183 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
C-FUNCTION-CALL REMOVE-OLD-DEFINITIONS
#Y(C-FUNCTION-CALL
#64Y(00 02 00 00 00 03 AA AA 6A 63 81 00 18 94 1F 0F 8B 02 24 02 0A 94 54
1F 06 94 54 70 85 2D 12 AA AA 2E 06 19 03 AA AA 96 54 53 71 5C 2B 04
01 19 03 AA D7 D7 2B 03 04 94 54 70 94 72 2D 05 19 03
)
INLINE-CALLABLE-FUNCTION-P C-FUNCALL-INLINE FUNCTION 2. TEST-LIST C-FORM
C-FUNCALL-NOTINLINE
) )
#Y(#:TOP-LEVEL-FORM-184 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
C-FUNCALL REMOVE-OLD-DEFINITIONS
#Y(C-FUNCALL
#23Y(00 00 00 00 00 01 63 00 D5 2E 02 0E 00 54 70 0E 00 54 71 2E 03 19 01
)
*FORM* 2. TEST-LIST C-FUNCTION-CALL
) )
#Y(#:TOP-LEVEL-FORM-185 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
C-APPLY REMOVE-OLD-DEFINITIONS
#Y(C-APPLY
#89Y(00 00 00 00 00 01 63 00 D5 2E 02 0E 00 54 70 D7 68 04 D9 0E 06 55 10
06 0E 00 54 71 DB AD 73 02 8A 01 1C 8B 01 D7 68 04 A8 7B 01 94 54 1C
09 D9 0E 06 55 0F 06 DC 7B 01 16 01 7A 01 89 01 64 DD DE 63 00 6A 63
6B 02 33 73 02 7B 00 DF E0 AA 6A 65 2B 03 0D 16 02 11 19 02
)
*FORM* 3. TEST-LIST ONE C-FORM 1. *STACKZ* (APPLYP) (PUSH) APPLY -3.
FUNCALL (T . T) MK-ANODE
) )
#Y(#:TOP-LEVEL-FORM-186 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
C-PLUS REMOVE-OLD-DEFINITIONS
#Y(C-PLUS
#119Y(00 00 00 00 00 01 63 00 D5 2E 02 D7 01 02 0E 00 71 5B 1A 3D AC AB
79 02 33 04 1A 33 95 1A 11 95 25 07 12 94 53 1A 09 C6 1A 01 C7 14
8B 03 59 02 14 2D 06 19 05 DE AC AC 31 02 1F 1A 35 7E 01 00 14 80
04 08 A8 2D 05 EC 14 85 2F 48 A8 7B 03 7A 01 A9 84 B6 68 16 02 A9
6A 63 A8 23 03 FF BD A8 23 01 FF BB AA 78 65 02 AB 23 03 03 AB 7B
02 DE 95 55 14 2D 0B 19 05
)
*FORM* 1. TEST-LIST 0. C-CONSTANTP C-CONSTANT-VALUE C-FORM
#S(HASH-TABLE EQ (-1. . 8.) (1. . 5.) (0. . 1.)) 1+ 1- +
C-GLOBAL-FUNCTION-CALL-FORM
) )
#Y(#:TOP-LEVEL-FORM-187 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
C-MINUS REMOVE-OLD-DEFINITIONS
#Y(C-MINUS
#166Y(00 00 00 00 00 01 63 00 D5 2E 02 63 00 6A 63 D5 6B 01 2B D7 D7 01
02 89 04 20 0E 00 54 70 A8 80 04 08 A8 2D 05 EB 14 85 2F 0C 92 ED
16 01 8A 04 0C 0E 00 54 1A 0B 93 EE 1A 72 89 04 74 0E 00 54 54 14
5B 1A 36 AD AB 79 01 34 05 1A 2C DA AC AC 59 03 10 00 2C 07 11 19
06 00 1A 3E AC 24 03 04 94 54 1C 75 96 1A 27 7E 01 00 14 80 04 08
A8 2D 05 EC 14 85 2F 4F A8 7B 03 7A 01 A9 84 B6 68 16 02 8A 01 49
DC AB 23 03 53 AC 24 03 06 95 14 59 01 1A 07 AB AD 6B 00 34 59 02
14 AB 6A 65 31 02 20 72 2D 09 19 06
)
*FORM* 2. TEST-LIST 0. C-CONSTANTP C-CONSTANT-VALUE + C-PLUS -
C-GLOBAL-FUNCTION-CALL-FORM
) )
#Y(#:TOP-LEVEL-FORM-188 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
C-SVSTORE REMOVE-OLD-DEFINITIONS
#Y(C-SVSTORE
#59Y(00 00 00 00 00 01 63 00 D5 D5 2B 03 02 0E 00 54 70 0E 00 54 54 70 0E
00 54 54 54 70 36 01 6A A4 36 01 6A A4 D7 AA AE 73 02 AA AE 73 02 73
02 D8 AD AD AD 73 04 73 03 2D 05 19 06
)
*FORM* 4. TEST-LIST LET* %SVSTORE C-FORM
) )
#Y(#:TOP-LEVEL-FORM-189 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
C-EQ REMOVE-OLD-DEFINITIONS
#Y(C-EQ
#81Y(00 00 00 00 00 01 63 00 D5 D5 2B 03 02 0E 00 54 70 0E 00 54 54 70 A9
80 03 04 A8 7F 03 1E A9 80 03 08 A9 A9 92 ED 93 EC 16 02 A8 80 03 04
A8 80 05 19 DD AA AA 59 03 14 2D 08 19 03 D8 AA 67 05 AA 2D 05 52 14
73 02 2D 06 19 03 DB AA 59 02 1A 66
)
*FORM* 3. TEST-LIST C-CONSTANTP QUOTE C-CONSTANT-VALUE C-FORM NULL
C-GLOBAL-FUNCTION-CALL-FORM EQ
) )
#Y(#:TOP-LEVEL-FORM-190 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
EQL=EQ REMOVE-OLD-DEFINITIONS
#Y(EQL=EQ
#23Y(00 01 00 00 00 02 A9 30 2D 1D 0A A9 30 36 1D 05 A9 30 43 19 02 19 02
) ) )
#Y(#:TOP-LEVEL-FORM-191 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
C-EQL REMOVE-OLD-DEFINITIONS
#Y(C-EQL
#82Y(00 00 00 00 00 01 63 00 D5 D5 2B 03 02 0E 00 54 70 0E 00 54 54 70 A9
80 03 04 A8 7F 03 19 A9 80 03 06 A9 67 05 7F 07 1E A8 80 03 06 A8 67
05 7F 07 14 DE 2D 0B 19 03 D8 AA 67 05 AA 67 05 6A 28 73 02 2D 06 19
03 DC AA AA 59 03 10 00 2C 09 11 19 03
)
*FORM* 3. TEST-LIST C-CONSTANTP QUOTE C-CONSTANT-VALUE C-FORM EQL=EQ EQ
C-EQ EQL C-GLOBAL-FUNCTION-CALL
) )
#Y(#:TOP-LEVEL-FORM-192 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
EQUAL=EQL REMOVE-OLD-DEFINITIONS
#Y(EQUAL=EQL
#23Y(00 01 00 00 00 02 A9 30 2D 1D 0A A9 30 2F 1D 05 A9 30 43 19 02 19 02
) ) )
#Y(#:TOP-LEVEL-FORM-193 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
C-EQUAL REMOVE-OLD-DEFINITIONS
#Y(C-EQUAL
#59Y(00 00 00 00 00 01 63 00 D5 D5 2B 03 02 0E 00 54 70 0E 00 54 54 70 A9
80 03 06 A9 67 04 7F 05 0F A8 80 03 06 A8 67 04 7F 05 05 DC 2D 09 19
03 DA AA AA 59 03 10 00 2C 07 11 19 03
)
*FORM* 3. TEST-LIST C-CONSTANTP C-CONSTANT-VALUE EQUAL=EQL EQL C-EQL
EQUAL C-GLOBAL-FUNCTION-CALL
) )
#Y(#:TOP-LEVEL-FORM-194 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
C-MAP-ON-CARS-INNER REMOVE-OLD-DEFINITIONS
#Y(C-MAP-ON-CARS-INNER
#65Y(00 03 00 01 00 0A 37 01 0D 74 01 89 02 0B AC AA 6A 65 34 01 19 05 8A
02 75 8B 02 36 01 6A A4 D4 D5 AB 73 02 D6 AB D7 AE 73 02 73 02 73 01
B2 B2 8C 0A AF 9D 72 64 4F 73 03 D8 B1 73 02 59 04 19 07
)
IF CONSP LET CAR RETURN-FROM
) )
#Y(#:TOP-LEVEL-FORM-195 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
C-MAP-ON-CARS REMOVE-OLD-DEFINITIONS
#Y(C-MAP-ON-CARS
#141Y(00 03 00 00 00 04 00 29 02 76 04 00 00 76 03 00 01 92 29 01 36 01
30 A4 0B 00 00 36 01 6A A4 5B AD 1A 0C 8B 00 36 01 6A A4 7B 02 16
01 7A 00 92 20 71 16 01 A8 77 CC 00 36 01 6A A4 D4 60 04 00 BF 72
73 01 D6 AD D7 D8 AF B5 6B 01 17 D9 AF B3 65 06 01 B3 B3 66 03 07
DC 5B B4 1A 11 8B 00 A8 DD AA 73 02 73 02 AB 77 CA 02 16 01 7A 00
92 20 6C 16 01 A8 2F CC 16 01 72 DE B3 73 02 73 05 73 03 73 03 DF
60 07 00 73 02 59 04 19 09
)
LET (NIL) BLOCK LET* #.#'LIST TAGBODY
#Y(C-MAP-ON-CARS-1
#30Y(00 01 00 00 00 02 D5 61 00 00 61 01 00 D6 61 01 01 AE 6B 02 1F 61
00 00 73 03 59 03 19 02
)
NIL SETQ %FUNCALL
)
C-MAP-ON-CARS-INNER SETQ CDR GO LIST-NREVERSE
) )
#Y(#:TOP-LEVEL-FORM-196 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
C-MAP-ON-LISTS REMOVE-OLD-DEFINITIONS
#Y(C-MAP-ON-LISTS
#160Y(00 03 00 00 00 04 36 01 6A A4 36 01 6A A4 5B AC 1A 0C 8B 00 36 01
6A A4 7B 02 16 01 7A 00 92 20 71 16 01 A8 77 CC 00 36 01 6A A4 D4
AC BF 72 73 01 D6 AD D7 D8 AF B4 6B 01 17 D9 AF DA DB 5B B4 1A 0C
8B 00 DC A9 73 02 7B 02 16 01 7A 00 92 20 71 16 01 A8 2F CC 16 01
72 DD B5 73 02 73 03 DE B5 BA DF BB B7 6B 02 1F B8 73 03 73 03 DE
5B B5 1A 11 8B 00 A8 E0 AA 73 02 73 02 AB 77 CA 02 16 01 7A 00 92
20 6C 16 01 A8 2F CC 16 01 72 E1 B4 73 02 73 06 73 03 73 03 E2 AF
73 02 59 04 19 08
)
LET (NIL) BLOCK LET* #.#'LIST TAGBODY IF OR ATOM RETURN-FROM SETQ
%FUNCALL CDR GO LIST-NREVERSE
) )
#Y(#:TOP-LEVEL-FORM-197 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
C-MAPC REMOVE-OLD-DEFINITIONS
#Y(C-MAPC
#154Y(00 00 00 00 00 01 63 00 D5 2E 02 0E 00 54 70 0E 00 54 71 6A 63 81
03 05 E3 2D 10 19 01 36 01 6A A4 A8 0E 00 54 54 54 72 36 01 6A A4
5B AA 1A 0C 8B 00 36 01 6A A4 7B 02 16 01 7A 00 92 20 71 16 01 A8
77 CC 00 36 01 6A A4 D8 AD 0E 00 54 54 70 73 02 73 01 D9 AD DA DB
AF B2 6B 01 17 DC AF DD B3 B3 66 03 0A DF 5B B4 1A 11 8B 00 A8 E0
AA 73 02 73 02 AB 77 CA 02 16 01 7A 00 92 20 6C 16 01 A8 2F CC 16
01 72 E1 B3 73 02 73 05 73 03 73 03 AF 59 04 16 04 EA 2D 0E 19 01
)
*FORM* 3. TEST-LIST INLINE-CALLABLE-FUNCTION-P LET BLOCK LET* #.#'LIST
TAGBODY
#Y(C-MAPC-1 #17Y(00 01 00 00 00 02 D4 0E 01 54 70 AB 31 02 1F 19 02)
%FUNCALL *FORM*
)
C-MAP-ON-CARS-INNER SETQ CDR GO C-FORM MAPC C-GLOBAL-FUNCTION-CALL
) )
#Y(#:TOP-LEVEL-FORM-198 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
C-MAPL REMOVE-OLD-DEFINITIONS
#Y(C-MAPL
#192Y(00 00 00 00 00 01 63 00 D5 2E 02 0E 00 54 70 0E 00 54 71 6A 63 81
03 05 E6 2D 13 19 01 36 01 6A A4 A8 0E 00 54 54 54 72 36 01 6A A4
5B AA 1A 0C 8B 00 36 01 6A A4 7B 02 16 01 7A 00 92 20 71 16 01 A8
77 CC 00 36 01 6A A4 D8 AD 0E 00 54 54 70 73 02 73 01 D9 AD DA DB
AF B2 6B 01 17 DC AF DD DE 5B B4 1A 0C 8B 00 DF A9 73 02 7B 02 16
01 7A 00 92 20 71 16 01 A8 2F CC 16 01 72 E0 B5 73 02 73 03 E1 0E
00 54 70 B4 6B 02 1F E2 5B B5 1A 11 8B 00 A8 E3 AA 73 02 73 02 AB
77 CA 02 16 01 7A 00 92 20 6C 16 01 A8 2F CC 16 01 72 E4 B4 73 02
73 06 73 03 73 03 AF 59 04 16 04 EA 2D 11 19 01
)
*FORM* 3. TEST-LIST INLINE-CALLABLE-FUNCTION-P LET BLOCK LET* #.#'LIST
TAGBODY IF OR ATOM RETURN-FROM %FUNCALL SETQ CDR GO C-FORM MAPL
C-GLOBAL-FUNCTION-CALL
) )
#Y(#:TOP-LEVEL-FORM-199 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
C-MAPCAR REMOVE-OLD-DEFINITIONS
#Y(C-MAPCAR
#61Y(00 00 00 00 00 01 63 00 D5 2E 02 0E 03 1C 12 0E 00 54 70 0E 00 54 71
6A 63 81 06 11 DE 2D 0B 19 01 D8 0E 00 54 55 10 00 2C 05 11 19 01 DB
0E 00 54 70 0E 00 54 71 66 03 08 2D 09 19 01
)
*FORM* 3. TEST-LIST *FOR-VALUE* MAPC C-MAPC INLINE-CALLABLE-FUNCTION-P
CONS C-MAP-ON-CARS C-FORM MAPCAR C-GLOBAL-FUNCTION-CALL
) )
#Y(#:TOP-LEVEL-FORM-200 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
C-MAPLIST REMOVE-OLD-DEFINITIONS
#Y(C-MAPLIST
#61Y(00 00 00 00 00 01 63 00 D5 2E 02 0E 03 1C 12 0E 00 54 70 0E 00 54 71
6A 63 81 06 11 DE 2D 0B 19 01 D8 0E 00 54 55 10 00 2C 05 11 19 01 DB
0E 00 54 70 0E 00 54 71 66 03 08 2D 09 19 01
)
*FORM* 3. TEST-LIST *FOR-VALUE* MAPL C-MAPL INLINE-CALLABLE-FUNCTION-P
CONS C-MAP-ON-LISTS C-FORM MAPLIST C-GLOBAL-FUNCTION-CALL
) )
#Y(#:TOP-LEVEL-FORM-201 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
C-MAPCAN REMOVE-OLD-DEFINITIONS
#Y(C-MAPCAN
#45Y(00 00 00 00 00 01 63 00 D5 2E 02 0E 00 54 70 0E 00 54 71 6A 63 81 03
05 DB 2D 08 19 01 D8 0E 00 54 70 0E 00 54 71 66 03 05 2D 06 19 01
)
*FORM* 3. TEST-LIST INLINE-CALLABLE-FUNCTION-P NRECONC C-MAP-ON-CARS
C-FORM MAPCAN C-GLOBAL-FUNCTION-CALL
) )
#Y(#:TOP-LEVEL-FORM-202 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
C-MAPCON REMOVE-OLD-DEFINITIONS
#Y(C-MAPCON
#45Y(00 00 00 00 00 01 63 00 D5 2E 02 0E 00 54 70 0E 00 54 71 6A 63 81 03
05 DB 2D 08 19 01 D8 0E 00 54 70 0E 00 54 71 66 03 05 2D 06 19 01
)
*FORM* 3. TEST-LIST INLINE-CALLABLE-FUNCTION-P NRECONC C-MAP-ON-LISTS
C-FORM MAPCON C-GLOBAL-FUNCTION-CALL
) )
#Y(#:TOP-LEVEL-FORM-203 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
C-MAPCAP REMOVE-OLD-DEFINITIONS
#Y(C-MAPCAP
#61Y(00 00 00 00 00 01 63 00 D5 2E 02 0E 03 1C 12 0E 00 54 70 0E 00 54 71
6A 63 81 06 11 DE 2D 0B 19 01 D8 0E 00 54 55 10 00 2C 05 11 19 01 DB
0E 00 54 70 0E 00 54 71 66 03 08 2D 09 19 01
)
*FORM* 3. TEST-LIST *FOR-VALUE* MAPC C-MAPC INLINE-CALLABLE-FUNCTION-P
REVAPPEND C-MAP-ON-CARS C-FORM MAPCAP C-GLOBAL-FUNCTION-CALL
) )
#Y(#:TOP-LEVEL-FORM-204 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
C-MAPLAP REMOVE-OLD-DEFINITIONS
#Y(C-MAPLAP
#61Y(00 00 00 00 00 01 63 00 D5 2E 02 0E 03 1C 12 0E 00 54 70 0E 00 54 71
6A 63 81 06 11 DE 2D 0B 19 01 D8 0E 00 54 55 10 00 2C 05 11 19 01 DB
0E 00 54 70 0E 00 54 71 66 03 08 2D 09 19 01
)
*FORM* 3. TEST-LIST *FOR-VALUE* MAPL C-MAPL INLINE-CALLABLE-FUNCTION-P
REVAPPEND C-MAP-ON-LISTS C-FORM MAPLAP C-GLOBAL-FUNCTION-CALL
) )
#Y(#:TOP-LEVEL-FORM-205
#26Y(00 00 00 00 00 01 D4 84 63 09 D5 D6 D4 D4 69 51 2B 04 03 D4 D8 30 97 BE
19 01
)
C-TYPEP-ALIST1 "~S redefines the constant ~S. Its old value was ~S."
(DEFCONSTANT C-TYPEP-ALIST1
'#1=((ARRAY . ARRAYP) (ATOM . ATOM) (BIT-VECTOR . BIT-VECTOR-P)
(CHARACTER . CHARACTERP) (COMMON . COMMONP)
(COMPILED-FUNCTION . COMPILED-FUNCTION-P) (COMPLEX . COMPLEXP)
(CONS . CONSP) (DOUBLE-FLOAT . DOUBLE-FLOAT-P) (FIXNUM . FIXNUMP)
(FLOAT . FLOATP) (FUNCTION . FUNCTIONP) (HASH-TABLE . HASH-TABLE-P)
(INTEGER . INTEGERP) (KEYWORD . KEYWORDP) (LIST . LISTP)
(LONG-FLOAT . LONG-FLOAT-P) (NULL . NULL) (NUMBER . NUMBERP)
(PACKAGE . PACKAGEP) (PATHNAME . PATHNAMEP)
(RANDOM-STATE . RANDOM-STATE-P) (RATIONAL . RATIONALP)
(READTABLE . READTABLEP) (REAL . REALP) (SEQUENCE . SEQUENCEP)
(SHORT-FLOAT . SHORT-FLOAT-P) (SIMPLE-ARRAY . SIMPLE-ARRAY-P)
(SIMPLE-BIT-VECTOR . SIMPLE-BIT-VECTOR-P)
(SIMPLE-STRING . SIMPLE-STRING-P) (SIMPLE-VECTOR . SIMPLE-VECTOR-P)
(SINGLE-FLOAT . SINGLE-FLOAT-P) (STREAM . STREAMP) (STRING . STRINGP)
(SYMBOL . SYMBOLP) (VECTOR . VECTORP)
) )
WARN #1#
)
#Y(#:TOP-LEVEL-FORM-206
#26Y(00 00 00 00 00 01 D4 84 63 09 D5 D6 D4 D4 69 51 2B 04 03 D4 D8 30 97 BE
19 01
)
C-TYPEP-ALIST2 "~S redefines the constant ~S. Its old value was ~S."
(DEFCONSTANT C-TYPEP-ALIST2
'#1=((BIGNUM (X) (AND (INTEGERP X) (NOT (FIXNUMP X))))
(BIT (X) (OR (EQL X 0.) (EQL X 1.)))
(NIL (X) (DECLARE (IGNORE X)) NIL)
(RATIO (X) (AND (RATIONALP X) (NOT (INTEGERP X))))
(STANDARD-CHAR (X) (AND (CHARACTERP X) (STANDARD-CHAR-P X)))
(STRING-CHAR (X) (AND (CHARACTERP X) (STRING-CHAR-P X)))
(STRUCTURE (X)
(LET ((Y (TYPE-OF X)))
(AND (SYMBOLP Y) (GET Y 'DEFSTRUCT-DESCRIPTION)
(%STRUCTURE-TYPE-P Y X)
)))
(T (X) (DECLARE (IGNORE X)) T)
) )
WARN #1#
)
#Y(#:TOP-LEVEL-FORM-207 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
C-TYPEP-ARRAY REMOVE-OLD-DEFINITIONS
#Y(C-TYPEP-ARRAY
#19Y(00 01 00 00 00 02 00 29 01 76 02 00 00 A8 2A 00 01 19 03)
#Y(C-TYPEP-ARRAY-1
#138Y(00 01 00 02 01 00 37 03 02 BF ED 37 02 02 BF EC D6 61 00 00 AE
73 02 AD 23 01 27 D7 D8 B0 73 02 D9 B0 67 06 73 02 73 03 59 01
14 AD 23 01 16 AD 85 2F 15 DB AE 6A 63 DC B2 73 02 73 03 DD 5B
B0 1A 34 00 1A 65 00 1A 39 DB AE DC B2 73 02 73 03 59 01 1A 2D
00 1A 14 8B 00 A8 23 01 77 DB D9 AA 73 02 DE B7 AF 73 03 73 03
59 01 14 7C 04 AB 77 CA 02 16 01 7A 00 92 20 5E 16 01 A8 2F CC
16 02 55 14 6B 02 20 31 02 1F 19 05
)
NIL * AND EQUAL ARRAY-ELEMENT-TYPE QUOTE UPGRADED-ARRAY-ELEMENT-TYPE
EQL ARRAY-RANK 0. ARRAY-DIMENSION
) ) )
#Y(#:TOP-LEVEL-FORM-208 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
C-TYPEP-VECTOR REMOVE-OLD-DEFINITIONS
#Y(C-TYPEP-VECTOR
#19Y(00 01 00 00 00 02 00 29 01 76 02 00 00 A8 2A 00 01 19 03)
#Y(C-TYPEP-VECTOR-1
#46Y(00 01 00 01 01 00 37 02 02 BF EC D6 61 00 00 AD 73 02 AC 23 01 15
D7 D8 AF D9 6B 02 1F DA AF 73 02 73 03 59 01 14 31 02 1F 19 04 00
1A 77
)
NIL * AND EQL ARRAY-DIMENSION (0.) QUOTE
) ) )
#Y(#:TOP-LEVEL-FORM-209 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
C-TYPEP-NUMBER REMOVE-OLD-DEFINITIONS
#Y(C-TYPEP-NUMBER
#23Y(00 02 00 00 00 03 00 29 02 76 03 00 00 76 02 00 01 A8 2A 00 01 19 04
)
#Y(C-TYPEP-NUMBER-1
#148Y(00 01 00 02 01 00 37 03 02 BF ED 37 02 02 BF EC D6 61 00 01 AE
73 02 AD 23 01 80 55 61 00 01 AE 34 01 1B 80 4F 97 1F 80 4F 97
54 1B 80 4A 61 00 01 8B 06 34 01 1C 80 40 D8 98 53 14 B0 73 03
59 01 14 AD 23 01 35 61 00 01 AE 34 01 1B 30 97 1F 0D 97 54 1B
09 61 00 01 8B 06 34 01 1B 24 C9 14 DA 61 00 00 61 00 00 61 00
00 B2 2B 06 07 DC 00 4C 00 1A 4D D7 98 1A 43 C3 1A 64 00 1A 0D
DD 98 1A 03 DE 98 53 14 B1 73 03 59 01 14 6B 02 20 31 02 1F 19
05
)
NIL * AND <= < "~S: argument to ~S must be *, ~S or a list of ~S: ~S"
TYPEP C-WARN C-TYPEP >= >
"~S: argument to ~S must be *, ~S or a list of ~S: ~S"
) ) )
#Y(#:TOP-LEVEL-FORM-210
#157Y(00 00 00 00 00 01 D4 84 63 09 D5 D6 D4 D4 69 51 2B 04 03 D4 D8 D9 2D
06 72 DB DC 2D 06 72 DD C8 72 DF E0 2D 0D 72 E2 CD 72 E4 E4 E5 2E 12
72 E7 D2 72 E9 03 16 72 5D 17 03 18 72 5D 19 5D 19 5D 1A 2E 12 72 5D
1B 5D 1B 5D 1C 2E 12 72 5D 1D 5D 1D 5D 1E 2E 12 72 5D 1F 5D 1F 5D 20
2E 12 72 5D 21 5D 21 5D 22 2E 12 72 5D 23 5D 23 5D 24 2E 12 72 5D 25
5D 25 5D 26 2E 12 72 5D 27 5D 28 2D 0D 72 5D 29 5D 2A 2D 0D 72 5D 2B
5D 2C 2D 0D 72 5D 2D 5D 2E 2D 0D 72 73 14 30 97 BE 19 01
)
C-TYPEP-ALIST3 "~S redefines the constant ~S. Its old value was ~S."
(DEFCONSTANT C-TYPEP-ALIST3
`((ARRAY . ,(C-TYPEP-ARRAY 'ARRAYP))
(SIMPLE-ARRAY . ,(C-TYPEP-ARRAY 'SIMPLE-ARRAY-P))
(VECTOR .
,#'(LAMBDA (X &OPTIONAL (EL-TYPE '*) (SIZE '*) &REST ILLEGAL-ARGS)
(DECLARE (IGNORE ILLEGAL-ARGS))
`#1=(AND (VECTORP ,X)
,@(IF (EQ EL-TYPE '*) 'NIL
`#2=((EQUAL (ARRAY-ELEMENT-TYPE ,X)
',(UPGRADED-ARRAY-ELEMENT-TYPE EL-TYPE)
) ))
,@(IF (EQ SIZE '*) 'NIL
`#3=((EQL (ARRAY-DIMENSION ,X 0.) ',SIZE))
) ) ) )
(SIMPLE-VECTOR . ,(C-TYPEP-VECTOR 'SIMPLE-VECTOR-P))
(COMPLEX .
,#'(LAMBDA (X &OPTIONAL (RTYPE '*) (ITYPE RTYPE) &REST ILLEGAL-ARGS)
(DECLARE (IGNORE ILLEGAL-ARGS))
`#4=(AND (COMPLEXP ,X)
,@(IF (EQ RTYPE '*) 'NIL `#5=((TYPEP (REALPART ,X) ',RTYPE)))
,@(IF (EQ ITYPE '*) 'NIL `#6=((TYPEP (IMAGPART ,X) ',ITYPE)))
) ) )
(INTEGER . ,(C-TYPEP-NUMBER 'INTEGER 'INTEGERP))
(MOD .
,#'(LAMBDA (X &OPTIONAL N &REST ILLEGAL-ARGS)
(DECLARE (IGNORE ILLEGAL-ARGS))
(UNLESS (INTEGERP N)
(C-WARN #7="~S: argument to MOD must be an integer: ~S" 'TYPEP N)
(THROW 'C-TYPEP NIL)
)
`#8=(AND (INTEGERP ,X) (NOT (MINUSP ,X)) (< ,X ,N))
) )
(SIGNED-BYTE .
,#'(LAMBDA (X &OPTIONAL (N '*) &REST ILLEGAL-ARGS)
(DECLARE (IGNORE ILLEGAL-ARGS))
(UNLESS (OR (EQ N '*) (INTEGERP N))
(C-WARN
#9="~S: argument to SIGNED-BYTE must be an integer or * : ~S"
'TYPEP N
)
(THROW 'C-TYPEP NIL)
)
`#10=(AND (INTEGERP ,X)
,@(IF (EQ N '*) 'NIL `#11=((< (INTEGER-LENGTH ,X) ,N)))
) ) )
(UNSIGNED-BYTE .
,#'(LAMBDA (X &OPTIONAL (N '*) &REST ILLEGAL-ARGS)
(DECLARE (IGNORE ILLEGAL-ARGS))
(UNLESS (OR (EQ N '*) (INTEGERP N))
(C-WARN
#12="~S: argument to UNSIGNED-BYTE must be an integer or * : ~S"
'TYPEP N
)
(THROW 'C-TYPEP NIL)
)
`#13=(AND (INTEGERP ,X) (NOT (MINUSP ,X))
,@(IF (EQ N '*) 'NIL `#14=((<= (INTEGER-LENGTH ,X) ,N)))
) ) )
(REAL . ,(C-TYPEP-NUMBER 'REAL 'REALP))
(RATIONAL . ,(C-TYPEP-NUMBER 'RATIONAL 'RATIONALP))
(FLOAT . ,(C-TYPEP-NUMBER 'FLOAT 'FLOATP))
(SHORT-FLOAT . ,(C-TYPEP-NUMBER 'SHORT-FLOAT 'SHORT-FLOAT-P))
(SINGLE-FLOAT . ,(C-TYPEP-NUMBER 'SINGLE-FLOAT 'SINGLE-FLOAT-P))
(DOUBLE-FLOAT . ,(C-TYPEP-NUMBER 'DOUBLE-FLOAT 'DOUBLE-FLOAT-P))
(LONG-FLOAT . ,(C-TYPEP-NUMBER 'LONG-FLOAT 'LONG-FLOAT-P))
(STRING . ,(C-TYPEP-VECTOR 'STRINGP))
(SIMPLE-STRING . ,(C-TYPEP-VECTOR 'SIMPLE-STRING-P))
(BIT-VECTOR . ,(C-TYPEP-VECTOR 'BIT-VECTOR-P))
(SIMPLE-BIT-VECTOR . ,(C-TYPEP-VECTOR 'SIMPLE-BIT-VECTOR-P))
) )
WARN ARRAY ARRAYP C-TYPEP-ARRAY SIMPLE-ARRAY SIMPLE-ARRAY-P VECTOR
#Y(#:TOP-LEVEL-FORM-210-1
#75Y(00 01 00 02 01 00 37 03 02 BE ED 37 02 02 BE EC D5 D6 AE 73 02 AD 23
00 2C D7 D8 B0 73 02 D9 B0 67 06 73 02 73 03 59 01 14 AD 23 00 1B DB
DC B1 DD 6B 02 1F D9 B0 73 02 73 03 59 01 14 6B 02 20 31 02 1F 19 05
00 1A 60 00 1A 71
)
* AND VECTORP EQUAL ARRAY-ELEMENT-TYPE QUOTE UPGRADED-ARRAY-ELEMENT-TYPE
EQL ARRAY-DIMENSION #15=(0.)
)
SIMPLE-VECTOR SIMPLE-VECTOR-P C-TYPEP-VECTOR COMPLEX
#Y(#:TOP-LEVEL-FORM-210-2
#71Y(00 01 00 02 01 00 37 03 02 BE ED 37 02 02 95 EC D5 D6 AE 73 02 AD 23
00 28 D7 D8 B0 73 02 D9 B0 73 02 73 03 59 01 14 AD 23 00 19 D7 DA B1
73 02 D9 B0 73 02 73 03 59 01 14 6B 02 20 31 02 1F 19 05 00 1A 62 00
1A 71
)
* AND COMPLEXP TYPEP REALPART QUOTE IMAGPART
)
INTEGER INTEGERP C-TYPEP-NUMBER MOD
#Y(#:TOP-LEVEL-FORM-210-3
#42Y(00 01 00 01 01 00 39 02 AA 86 35 15 D8 D9 AD 73 02 DA DB AF 73 02 73
02 DC AF AF 73 03 59 04 19 04 D4 D5 AC 2B 03 02 D7 00 4C
)
#7# TYPEP C-WARN C-TYPEP AND INTEGERP NOT MINUSP <
)
SIGNED-BYTE
#Y(#:TOP-LEVEL-FORM-210-4
#56Y(00 01 00 01 01 00 37 02 02 BE EC AA 23 00 04 AA 86 35 19 D9 DA AD 73
02 AC 23 00 19 DB DC AF 73 02 AE 73 03 59 01 14 31 02 1F 19 04 D5 D6
AC 2B 03 03 D8 00 4C 00 1A 6E
)
* #9# TYPEP C-WARN C-TYPEP AND INTEGERP < INTEGER-LENGTH
)
UNSIGNED-BYTE
#Y(#:TOP-LEVEL-FORM-210-5
#63Y(00 01 00 01 01 00 37 02 02 BE EC AA 23 00 04 AA 86 35 20 D9 DA AD 73
02 DB DC AF 73 02 73 02 AD 23 00 19 DD DE B0 73 02 AF 73 03 59 01 14
31 03 1F 19 04 D5 D6 AC 2B 03 03 D8 00 4C 00 1A 6E
)
* #12# TYPEP C-WARN C-TYPEP AND INTEGERP NOT MINUSP <= INTEGER-LENGTH
)
REAL REALP RATIONAL RATIONALP FLOAT FLOATP SHORT-FLOAT SHORT-FLOAT-P
SINGLE-FLOAT SINGLE-FLOAT-P DOUBLE-FLOAT DOUBLE-FLOAT-P LONG-FLOAT
LONG-FLOAT-P STRING STRINGP SIMPLE-STRING SIMPLE-STRING-P BIT-VECTOR
BIT-VECTOR-P SIMPLE-BIT-VECTOR SIMPLE-BIT-VECTOR-P
)
#Y(#:TOP-LEVEL-FORM-211 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
C-TYPEP REMOVE-OLD-DEFINITIONS
#Y(C-TYPEP
#446Y(00 00 00 00 00 01 63 00 D5 D5 2B 03 02 0E 00 54 70 0E 00 54 54 70
A8 80 03 81 9E A8 67 04 5B A9 86 2D 81 1A A9 D9 36 03 77 E3 00 1B
33 A9 DB 36 03 77 E3 00 1B 34 A9 63 0B 36 03 77 E3 00 1B 80 42 A9
E2 36 01 78 98 00 1B 80 61 A9 E6 36 01 86 98 81 64 E7 E4 AB 73 02
97 14 73 03 2D 11 19 05 54 EA 14 AC 73 02 2D 06 19 05 54 EA 14 AC
59 02 10 00 DC AD 6A A0 68 09 AF 73 01 AD 5B 2B 04 0A 11 19 05 54
EA 36 01 6A A4 A9 A9 6E 01 A9 73 01 A9 73 02 E0 93 72 AF 59 02 10
00 E1 B0 6A A0 68 09 B2 73 01 AD 5B 2B 04 0A 11 19 08 E3 AC E4 AB
AD 73 01 6E 01 59 02 1A FF 9F 5D 17 E3 99 54 70 2B 03 18 E8 00 4C
96 54 70 97 54 70 86 2D 6B A8 B0 73 02 2D 06 16 08 1A 80 D4 5D 1A
AF 8C 06 03 1B 72 5D 1C 31 03 1F 10 00 2C 1D 11 16 07 1A 80 BD 5D
1E E3 B0 E4 9A 54 70 73 02 73 03 73 02 2D 06 16 07 1A 80 A8 36 01
6A A4 5D 21 A9 B1 73 02 73 01 8B 07 5B 8C 09 1A 10 8B 00 E3 AF E4
AB 73 02 73 03 7B 02 16 01 7A 00 92 20 6D 16 01 A8 2F CC 16 01 72
59 03 EA 2D 11 16 07 1A 80 70 93 1F 80 75 8B 01 86 2D 80 6F D2 4A
80 6B 8B 04 24 15 07 AC 6A 63 23 16 FF 6E 8B 04 23 19 FF 7C 8B 04
24 1E 07 AC 6A 63 23 16 FF 87 8B 04 23 1F FF 96 8B 04 23 20 FF 90
8B 04 63 0B 36 03 77 E3 03 1C 31 54 ED 36 01 6A A4 AC A9 99 54 6F
01 A9 73 01 A9 73 02 E0 93 72 B2 59 02 10 00 5D 22 8B 0B 6A A0 68
09 B5 73 01 AD 5B 2B 04 0A 11 16 0A 18 10 19 01 4B 16 02 1A 02 16
02 E3 2D 23 19 03
)
*FORM* 3. TEST-LIST C-CONSTANTP C-CONSTANT-VALUE #.C-TYPEP-ALIST1
C-GLOBAL-FUNCTION-CALL-FORM #.C-TYPEP-ALIST2 #:TYPEP SYMBOL-SUFFIX
C-FUNCALL-INLINE C-TYPEP-ALIST3 LAMBDA #:TYPEP DEFTYPE-EXPANDER TYPEP
QUOTE C-FORM DEFSTRUCT-DESCRIPTION %STRUCTURE-TYPE-P C-TYPEP SATISFIES 2.
"~S: argument to SATISFIES must be a symbol: ~S" C-WARN MEMBER CASE (T)
((T NIL)) C-CASE NOT AND OR LET #:TYPEP C-GLOBAL-FUNCTION-CALL
) )
#Y(#:TOP-LEVEL-FORM-212 #12Y(00 00 00 00 00 01 D4 2F 5F BF 19 01)
(SPECIAL *FNODE-FIXUP-TABLE*) *FNODE-FIXUP-TABLE*
)
#Y(#:TOP-LEVEL-FORM-213 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
PASS2 REMOVE-OLD-DEFINITIONS
#Y(PASS2
#78Y(00 01 00 00 00 02 93 10 00 63 00 D5 A9 D6 78 53 00 D7 A9 30 57 16 01
1B 04 00 11 19 02 2C 04 14 A8 2D 05 EA 63 00 A9 67 06 2E 07 16 01 63
00 D5 A9 DC 78 53 00 5B 1A 0D 7E 01 00 D5 A9 86 57 03 A8 26 43 7A 01
A9 84 B6 6F 00 16 02 1A 4C
)
*FUNC* FNODE 2. ANODE COMPILE-TO-LAP INSERT-COMBINED-LAPS ASSEMBLE-LAP
CREATE-FUN-OBJ 17.
) )
#Y(#:TOP-LEVEL-FORM-214 #12Y(00 00 00 00 00 01 D4 2F 5F BF 19 01)
(SPECIAL *CODE-PARTS*) *CODE-PARTS*
)
#Y(#:TOP-LEVEL-FORM-215 #12Y(00 00 00 00 00 01 D4 2F 5F BF 19 01)
(SPECIAL *CODE-POSITIONS*) *CODE-POSITIONS*
)
#Y(#:TOP-LEVEL-FORM-216 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
CONST-INDEX REMOVE-OLD-DEFINITIONS
#Y(CONST-INDEX
#98Y(00 02 00 01 00 09 37 01 03 0E 00 EB D5 AA D6 6A 53 D5 AB D7 6A 53 D5
AC D8 6A 53 89 02 29 AE 73 01 D5 AE D6 AB 30 54 16 01 AD 73 01 D5 AE
D7 AB 30 54 16 01 1A 29 93 53 1B 25 8A 05 22 A9 AE 2F D1 1A 1C 7A 02
7A 01 8B 02 AF 85 28 69 7C 00 94 54 1B 70 AA AF 73 01 2F D3 A9 AE 73
01 2F D3 15 19 06
)
*FUNC* FNODE 17. 18. 16.
) )
#Y(#:TOP-LEVEL-FORM-217 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
KCONST-INDEX REMOVE-OLD-DEFINITIONS
#Y(KCONST-INDEX
#54Y(00 02 00 01 00 09 37 01 03 0E 00 EB AB 86 A1 1B D5 AA D6 6A 53 D5 AB
D7 6A 53 8A 00 0C 8B 00 98 21 11 7A 00 7C 01 89 00 74 16 02 AB AB AB
2B 03 04 19 04 93 19 06
)
*FUNC* FNODE 9. 14. CONST-INDEX
) )
#Y(#:TOP-LEVEL-FORM-218 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
MAKE-CONST-CODE REMOVE-OLD-DEFINITIONS
#Y(MAKE-CONST-CODE
#28Y(00 02 00 00 00 03 8A 02 0D AA 02 21 0C D6 AB AB 68 03 59 02 19 03 BE
19 03 BF 19 03
)
(NIL) (T) CONST KCONST-INDEX
) )
#Y(#:TOP-LEVEL-FORM-219 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
BCONST-INDEX REMOVE-OLD-DEFINITIONS
#Y(BCONST-INDEX
#36Y(00 01 00 01 00 08 37 01 03 0E 00 EB D5 AA D6 6A 53 D5 AB D7 6A 53 1A
04 7A 00 7C 01 8B 00 97 22 77 93 19 05
)
*FUNC* FNODE 5. 6.
) )
#Y(#:TOP-LEVEL-FORM-220 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
GCONST-INDEX REMOVE-OLD-DEFINITIONS
#Y(GCONST-INDEX
#36Y(00 01 00 01 00 08 37 01 03 0E 00 EB D5 AA D6 6A 53 D5 AB D7 6A 53 1A
04 7A 00 7C 01 8B 00 97 22 77 93 19 05
)
*FUNC* FNODE 7. 8.
) )
#Y(#:TOP-LEVEL-FORM-221 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
FCONST-INDEX REMOVE-OLD-DEFINITIONS
#Y(FCONST-INDEX
#45Y(00 01 00 01 00 08 37 01 03 0E 00 EB AA D5 AB D6 6A 53 36 03 83 DC 10
AA 5B 68 03 AA A9 73 02 0E 04 55 0F 04 15 19 03 AA 5B 2E 03 19 03
)
*FUNC* FNODE 17. CONST-INDEX *FNODE-FIXUP-TABLE*
) )
#Y(#:TOP-LEVEL-FORM-222 #12Y(00 00 00 00 00 01 D4 2F 5F BF 19 01)
(SPECIAL *CODE-PART*) *CODE-PART*
)
#Y(#:TOP-LEVEL-FORM-223 #12Y(00 00 00 00 00 01 D4 2F 5F BF 19 01)
(SPECIAL *CODE-INDEX*) *CODE-INDEX*
)
#Y(#:TOP-LEVEL-FORM-224 #12Y(00 00 00 00 00 01 D4 2F 5F BF 19 01)
(SPECIAL *DEAD-CODE*) *DEAD-CODE*
)
#Y(#:TOP-LEVEL-FORM-225 #12Y(00 00 00 00 00 01 D4 2F 5F BF 19 01)
(SPECIAL *LABEL-SUBST*) *LABEL-SUBST*
)
#Y(#:TOP-LEVEL-FORM-226 #12Y(00 00 00 00 00 01 D4 2F 5F BF 19 01)
(SPECIAL *CURRENT-VALUE*) *CURRENT-VALUE*
)
#Y(#:TOP-LEVEL-FORM-227 #12Y(00 00 00 00 00 01 D4 2F 5F BF 19 01)
(SPECIAL *CURRENT-VARS*) *CURRENT-VARS*
)
#Y(#:TOP-LEVEL-FORM-228 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
LABEL-SUBST REMOVE-OLD-DEFINITIONS
#Y(LABEL-SUBST
#66Y(00 02 00 00 00 03 AA 69 51 5B 1A 1A 63 00 AB 31 01 01 53 1A 0A 7E 01
00 AB AD AA 85 35 6E 94 71 36 03 2F D7 7A 01 A9 84 B6 6B 16 02 A9 AB
69 51 AB 69 51 6B 02 21 2F 56 AA 5B 2F 56 AA D5 30 9D 19 03
)
*CODE-PARTS* CODE-PART
) )
#Y(#:TOP-LEVEL-FORM-229 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
FINISH-CODE-PART REMOVE-OLD-DEFINITIONS
#Y(FINISH-CODE-PART
#33Y(00 00 00 00 00 01 63 00 2D 01 63 00 63 02 36 01 2F 1A 63 03 30 AB 0F
03 14 63 04 36 01 2F 1A 19 01
)
*CODE-PART* SIMPLIFY *CODE-PARTS* *CODE-INDEX* *CODE-POSITIONS*
) )
#Y(#:TOP-LEVEL-FORM-230 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
EMIT-JMP REMOVE-OLD-DEFINITIONS
#Y(EMIT-JMP
#34Y(00 01 00 00 00 02 D4 AA 63 01 73 03 0E 02 55 0F 02 63 03 A8 AB 2F 51
72 AB A9 2F 56 16 02 2C 04 19 02
)
JMP *CURRENT-VALUE* *CODE-PART* *CODE-INDEX* FINISH-CODE-PART
) )
#Y(#:TOP-LEVEL-FORM-231 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
TRAVERSE-ANODE REMOVE-OLD-DEFINITIONS
#Y(TRAVERSE-ANODE
#1591Y(00 01 00 00 00 02 A9 5B 1A 86 24 00 0F 00 1A 24 63 01 A8 AA 2E 02
A8 AA AB AB 63 03 36 03 69 D7 2F E1 0F 03 16 01 1A 0C 0E 00 1B 5F
63 01 85 2D 5F A8 2D 04 92 0F 01 63 05 69 16 A9 DA AA 30 9C 16 01
1A 85 B2 DD A9 DE 30 53 1A 82 58 A8 85 2D 57 DD A9 85 57 6F DF CA
1A 85 CF 7E 01 00 1F 6D 0E 00 1B 85 C8 63 03 8C 01 36 03 2F DB 92
53 25 0E 85 B4 92 54 70 E3 A9 E4 6A 53 63 08 5B 1A 1A 16 04 1A 85
A8 D1 1A 29 7E 01 00 E3 A9 86 57 08 E3 A9 E4 6A 53 95 21 68 7A 01
A9 84 B6 6A 16 02 A8 E3 AB E5 6A 53 68 12 0E 01 55 0F 01 8A 00 55
D2 0F 07 93 1A 83 3B E3 93 54 70 2D 15 1A 0E E3 93 54 70 2D 16 1A
06 E3 93 54 70 2D 17 14 59 02 1A 85 2C D1 1A 17 E3 A9 2D 15 1A 80
B3 5D 19 AB 5D 1A 6A 53 E3 A9 E4 6A 53 8A 00 67 D2 0F 07 5D 1B A9
85 57 61 A8 E3 AB E5 6A 53 2E 12 16 02 1A 80 93 5D 1C 5D 19 AC E4
78 53 03 14 5B 68 1D 59 02 1A 80 81 5D 20 AB AB AB 59 04 16 03 1A
80 75 89 02 71 5D 21 94 1A 0E AA AA AA 2B 03 1F 3E 03 89 01 6D 5D
22 95 14 AA 59 03 16 03 1A 80 56 5D 25 AA AA 59 03 16 02 1A 80 4B
92 54 70 93 54 54 70 94 54 54 54 70 AA 63 08 5D 18 36 02 83 DC 80
40 5D 19 AB DE 85 53 FF 74 00 0F 07 5D 19 AB E5 85 53 FF 8E 5D 19
AB 5D 1E 85 53 FF AB A8 5D 19 AC 5D 23 6A 53 2E 24 3E 02 89 01 FF
B2 5D 26 93 14 59 02 16 02 14 0E 01 55 0F 01 AA 59 01 1A 80 93 16
03 1A 84 87 5D 27 5D 19 AC E4 78 53 03 14 5B 68 1D 59 02 1A 80 72
5D 28 AB AB AB 59 04 16 03 1A 80 66 89 02 71 5D 29 94 1A 0E AA AA
AA 2B 03 1F 3E 03 89 01 6D 5D 2A 95 14 AA 59 03 16 03 1A 80 47 5D
2B AA AA 59 03 16 02 1A 3D 92 54 70 93 54 54 70 94 54 54 54 70 AA
63 08 5D 18 36 02 83 DC 38 5D 19 AB E5 85 53 FF 9B 5D 19 AB 5D 1E
85 53 FF B8 A8 5D 19 AC 5D 23 6A 53 2E 24 3E 02 89 01 40 5D 2C A9
59 02 16 02 14 0E 01 55 0F 01 AA 0E 08 55 0F 08 16 03 1A 83 F2 16
03 1A 83 ED 5D 1C A9 5B 68 1D 73 02 0E 01 55 0F 01 00 0F 07 A8 59
01 1A 30 92 54 70 A8 63 08 5D 18 36 02 84 DC 5E 16 01 1A 83 C6 92
54 70 A8 63 08 5D 18 36 02 83 DC 18 5D 27 A9 5B 68 1D 73 02 0E 01
55 0F 01 A8 0E 08 55 0F 08 16 01 1A 83 A1 16 01 1A 83 9C 03 2D 1A
81 94 92 54 70 93 54 54 70 94 54 54 54 70 2B 03 2E 14 26 FD 5D 1A
83 81 92 54 70 5B 67 2F 94 53 25 30 19 03 31 1A 06 03 31 1A 09 03
32 14 AA 94 1A 05 03 33 14 A9 95 14 59 03 1A 01 00 14 0E 01 55 0F
01 63 34 95 54 70 A9 A9 2F 51 72 A9 A9 2F 56 16 03 63 34 A8 AA 2F
51 72 AA A9 2F 56 16 02 2C 35 63 05 69 16 A9 DA AA 30 9C 16 01 92
0F 01 16 02 1A 83 24 16 01 1A 83 1F 8B 00 A8 23 36 75 A8 23 37 71
16 01 1A 82 7D 16 01 1A 83 0B 16 01 1A 82 87 36 05 97 54 53 ED 69
68 93 54 54 54 71 94 54 54 70 5B 1A 14 7E 01 00 70 8C 01 AC 36 06
6A 7B A9 AE AA 2F 6A 16 02 7A 01 A9 84 B6 68 16 02 5D 3B AA 5B 68
3C AB 97 54 54 71 6B 03 1F 0E 01 55 0F 01 16 02 92 54 54 71 5B 1A
12 7E 01 00 63 34 A8 AA 2F 51 72 AA A9 2F 56 16 02 7A 01 A9 84 B6
6A 16 02 2C 35 1A 82 25 92 54 70 93 54 54 70 1A 34 5D 25 AA AA 59
03 16 02 1A 3D A8 94 53 71 2E 24 3E 02 89 01 6B 5D 26 A9 59 02 16
02 1A 29 03 3E 1A 25 63 3D 5D 1B A9 DE 30 53 16 01 1B 70 03 3F 1A
15 7A 01 93 53 1C 7A 93 53 20 4E 8B 01 0E 3D 21 60 DF 5D 40 2E 0D
14 0E 01 55 0F 01 70 5D 41 86 29 0D D1 0F 07 5D 42 5B 2E 43 14 59
01 1A 03 00 0F 07 0F 08 16 02 1A 82 2C 5D 44 93 54 70 67 15 94 54
54 70 59 03 1A 81 EE 5D 45 93 54 70 94 54 54 70 E3 A9 E4 78 53 00
5B 68 1D 59 03 1A 81 C9 92 53 14 93 54 70 E3 A9 E4 78 53 00 5B 68
1D 59 02 1A 81 B5 03 46 1A 81 B0 92 54 70 93 54 54 54 70 5D 19 AA
5D 1E 86 53 05 DF 5D 47 2E 0D A8 5D 19 AB 5D 23 6A 53 2E 24 3E 02
8A 01 05 DF 5D 48 2E 0D 8B 04 A9 98 54 54 54 71 6B 02 1F 0E 01 55
0F 01 8B 04 24 49 11 0E 01 70 AD 69 BD A9 A9 2F 51 72 A9 A9 2F 56
16 03 00 0F 07 0F 08 16 04 1A 81 93 92 54 54 70 5D 4A 94 54 70 E3
A9 E4 78 53 00 5B 68 1D AA 73 03 0E 01 55 0F 01 70 A8 AA 2F 51 72
AA A9 2F 56 16 03 1A 81 6A 5D 4C 93 54 70 2D 16 1A 1A 92 54 70 5D
4B A9 30 57 16 01 1B 6B 5D 4C 93 54 70 E3 A9 E4 78 53 00 5B 2E 1D
14 59 02 1A 80 8B A8 0E 01 55 0F 01 92 54 71 5B 1A 10 7E 01 00 AA
A9 2F 51 72 A9 A9 2F 56 16 01 7A 01 A9 84 B6 6C 16 02 1A 81 1C 5D
4E 93 54 70 2D 17 1A 1A 92 54 70 5D 4D A9 30 57 16 01 1B 6B 5D 4E
93 54 70 E3 A9 E4 78 53 00 5B 2E 1D 14 94 54 54 70 59 03 1A 3A A8
0E 01 55 0F 01 D1 0F 07 5D 42 00 1A 21 A8 0E 01 55 0F 01 D1 0F 07
1A 80 B9 A8 0E 01 55 0F 01 1A 80 CD A8 0E 01 55 0F 01 D2 0F 07 5D
42 02 14 68 43 59 01 0F 08 1A 80 B7 92 14 0E 01 55 0F 01 2C 35 1A
32 0E 07 1C FD 26 63 07 23 13 FD 82 8B 00 A8 23 38 FD 8A A8 23 39
FD 85 16 01 8B 00 A8 23 37 05 A8 24 39 FD 7D 16 01 5D 3A 0E 01 55
0F 01 92 54 70 2D 04 02 0F 00 1A 80 74 A8 0E 01 55 0F 01 92 54 1A
1E A8 0E 01 55 0F 01 92 54 70 A9 A9 2F 51 72 A9 A9 2F 56 16 02 1A
80 53 A8 0E 01 55 0F 01 92 54 70 A9 A9 2F 51 72 A9 A9 2F 56 16 02
1A 07 92 14 0E 01 55 0F 01 00 0F 07 0F 08 1A 2F 92 14 0E 01 55 0F
01 D2 0F 07 1A 06 A8 0E 01 55 0F 01 00 0F 08 1A 18 A8 0E 01 55 0F
01 5D 4F 63 08 36 05 30 6E 0F 08 1A 06 DF 03 50 14 2E 0D 7A 01 A9
84 B6 FA 27 00 19 04
)
*DEAD-CODE* *CODE-PART* LABEL-SUBST *LABEL-SUBST* EMIT-JMP *CODE-PARTS*
CODE-PART *CURRENT-VALUE* *CURRENT-VARS* ANODE 3. TRAVERSE-ANODE "ITEM"
COMPILER-ERROR
#S(HASH-TABLE EQ (UNBIND1 . 1444.) (UNWIND-PROTECT-CLEANUP . 1433.)
(LIST . 1421.) (CONS . 1421.) (SVSET . 1407.) (SVREF . 1407.)
(SYMBOL-FUNCTION . 1407.) (CONSP . 1407.) (ATOM . 1407.) (CDR . 1407.)
(CAR . 1407.) (EQ . 1407.) (NOT . 1407.) (MVCALL . 1407.)
(LIST-TO-MV . 1407.) (MV-TO-LIST . 1407.) (NV-TO-STACK . 1407.)
(MV-TO-STACK . 1407.) (STACK-TO-MV . 1407.) (PUSH-UNBOUND . 1407.)
(APPLY . 1407.) (FUNCALL . 1407.) (CALLCKEY . 1407.) (CALLC . 1407.)
(CALLSR . 1407.) (CALLS2 . 1407.) (CALLS1 . 1407.)
(MAKE-VECTOR1&PUSH . 1407.) (POP . 1407.) (PUSH . 1407.)
(PROGV . 1407.) (PUSH-NIL . 1407.) (UNWIND-PROTECT-CLOSE . 1385.)
(UNWIND-PROTECT-OPEN . 1362.) (CATCH-OPEN . 1362.) (JSR . 1352.)
(JMP . 1341.) (ERROR . 1285.) (THROW . 1285.) (RET . 1285.)
(T . 1263.) (STORE . 1254.) (UNWIND-PROTECT-NORMAL-EXIT . 1254.)
(CATCH-CLOSE . 1254.) (TAGBODY-CLOSE . 1254.) (BLOCK-CLOSE . 1254.)
(MVCALLP . 1254.) (VALUES1 . 1254.) (SKIPSP . 1254.) (SKIPI . 1254.)
(SKIP . 1254.) (VALUES0 . 1242.) (TAGBODY-CLOSE-NIL . 1228.)
(NIL . 1228.) (GO . 1193.) (TAGBODY-OPEN . 1147.)
(RETURN-FROM . 1115.) (BLOCK-OPEN . 1065.) (BOUNDP . 976.)
(JMPIFBOUNDP . 976.) (APPLYP . 971.) (FUNCALLP . 971.) (CALL2 . 951.)
(CALL1 . 951.) (CALL0 . 951.) (CALL . 928.) (CALLP . 1468.)
(COPY-CLOSURE . 912.) (VENV . 797.) (JMPHASH . 694.)
(JMPIFNOT1 . 1296.) (JMPIF1 . 1296.) (JMPIFNOT . 1296.)
(JMPIF . 1296.) (UNWIND . 549.) (BIND . 544.) (SETVALUE . 502.)
(GETVALUE . 484.) (SET . 380.) (GET . 217.) (GCONST . 86.)
(BCONST . 78.) (FCONST . 70.) (CONST . 2.)
)
CONST 1. 2. MAKE-CONST-CODE FALSE TRUE FCONST-INDEX BCONST-INDEX
GCONST-INDEX #.#'EQ VAR 4. FNODE GETVALUE KCONST-INDEX 9.
ZUGRIFF-IN-CLOSURE LOADIC LOADC LOADV 10. ZUGRIFF-IN-STACK LOADI LOAD
SETVALUE STOREIC STOREC STOREV STOREI STORE BIND EXPAND-UNWIND MAKE-LABEL
#S(HASH-TABLE EQ (JMPIFNOT1 . 16.) (JMPIF1 . 9.) (JMPIFNOT . 5.)
(JMPIF . 1.)
)
JMPCASE JMPCASE1-TRUE JMPCASE1-FALSE *CODE-INDEX* FINISH-CODE-PART JMPIF
JMPIF1 JMPIFNOT JMPIFNOT1 (VALUES1) JMPHASH CONST-INDEX *FUNC* (VENV)
(NIL) VENV (NIL) :VALUE MAKE-CONST COPY-CLOSURE CALL (PUSH) VAR-CLOSUREP
VAR-STACKZ JMPIFBOUNDP BLOCK-OPEN BLOCK RETURN-FROM TAGBODY GO
#.#'SYMBOLP "LISTITEM"
) )
#Y(#:TOP-LEVEL-FORM-232
#23Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 D7 2D 01 D7 D8 30 96 C1 19 01)
NOTE-REFERENCES REMOVE-OLD-DEFINITIONS
#Y(NOTE-REFERENCES
#122Y(00 01 00 01 00 08 39 01 94 53 25 00 80 69 94 1A 10 94 54 70 AA A9
2F 51 72 A9 A9 2F 56 16 02 94 54 54 70 94 1A 29 94 54 54 71 5B A9
83 B6 80 44 7E 01 00 AB A9 2F 51 72 A9 A9 2F 56 16 01 7A 01 1A 69
94 1A 07 94 54 1A 03 94 54 54 54 70 95 14 A9 2F 51 72 A9 A9 2F 56
19 05 94 54 71 5B 1A 10 7E 01 00 AC A9 2F 51 72 A9 A9 2F 56 16 01
7A 01 A9 84 B6 6C 00 19 05 00 19 03
)
#S(HASH-TABLE EQ (TAGBODY-OPEN . 78.) (JMPTAIL . 61.) (JSR . 57.)
(BLOCK-OPEN . 57.) (UNWIND-PROTECT-CLOSE . 54.)
(UNWIND-PROTECT-OPEN . 54.) (CATCH-OPEN . 54.) (JMPIFBOUNDP . 54.)
(JMPHASH . 26.) (JMPCASE1-FALSE . 5.) (JMPCASE1-TRUE . 5.)
(JMPCASE . 5.) (JMP . 2.)
) )
REMOVE-REFERENCES
#Y(REMOVE-REFERENCES
#161Y(00 01 00 01 00 08 39 01 5B 95 53 25 00 80 8F 95 1A 19 95 54 70 A8
AC AA 69 51 36 07 6A 6D 2F 56 A8 AA 36 03 77 E0 01 16 01 95 54 54
70 A8 96 1A 35 95 54 54 71 5B 1A 17 7E 01 00 14 AD AA 69 51 36 07
6A 6D 2F 56 A8 AB 36 03 77 E0 02 7A 01 A9 84 B6 65 16 02 1A 80 46
95 1A 07 95 54 1A 03 95 54 54 54 70 A8 97 14 AA 69 51 36 07 6A 6D
2F 56 A8 AA 36 03 77 E0 01 16 01 1A 23 95 54 71 5B 1A 17 7E 01 00
14 AE AA 69 51 36 07 6A 6D 2F 56 A8 AB 36 03 77 E0 02 7A 01 A9 84
B6 65 16 02 15 19 03
)
#S(HASH-TABLE EQ (TAGBODY-OPEN . 110.) (JMPTAIL . 82.) (JSR . 78.)
(BLOCK-OPEN . 78.) (UNWIND-PROTECT-CLOSE . 75.)
(UNWIND-PROTECT-OPEN . 75.) (CATCH-OPEN . 75.) (JMPIFBOUNDP . 75.)
(JMPHASH . 36.) (JMPCASE1-FALSE . 5.) (JMPCASE1-TRUE . 5.)
(JMPCASE . 5.) (JMP . 2.)
) ) )
#Y(#:TOP-LEVEL-FORM-233
#51Y(00 00 00 00 00 01 D4 84 63 09 D5 D6 D4 D4 69 51 2B 04 03 D4 36 05 C2 ED
69 68 D9 5B 1A 0A 7E 01 00 14 AB 5C 2F 6A 7A 01 A9 84 B6 72 16 02 30 97
BE 19 01
)
ONE-VALUE-OPS "~S redefines the constant ~S. Its old value was ~S."
(DEFCONSTANT ONE-VALUE-OPS
(LET ((HT (MAKE-HASH-TABLE :TEST #'EQ)))
(DOLIST
(OP
'#1=(NIL T CONST LOAD LOADI LOADC LOADV LOADIC STORE STOREI STOREC
STOREV STOREIC GETVALUE SETVALUE POP VENV COPY-CLOSURE BOUNDP
VALUES1 MV-TO-LIST TAGBODY-CLOSE-NIL NOT EQ CAR CDR CONS ATOM CONSP
SYMBOL-FUNCTION SVREF SVSET LIST
) )
(SETF (GETHASH OP HT) T)
)
HT
))
WARN #.#'EQ #1#
)
#Y(#:TOP-LEVEL-FORM-234
#91Y(00 00 00 00 00 01 D4 84 63 09 D5 D6 D4 D4 69 51 2B 04 03 D4 36 05 C2 ED
69 68 D9 5B 1A 0A 7E 01 00 14 AB 5B 2F 6A 7A 01 A9 84 B6 72 16 02 DA 5B
1A 0A 7E 01 00 14 AB DB 2F 6A 7A 01 A9 84 B6 72 16 02 DC 5B 1A 0A 7E 01
00 14 AB DD 2F 6A 7A 01 A9 84 B6 72 16 02 30 97 BE 19 01
)
FOR-VALUE-TABLE "~S redefines the constant ~S. Its old value was ~S."
(DEFCONSTANT FOR-VALUE-TABLE
(LET ((HT (MAKE-HASH-TABLE :TEST #'EQ)))
(DOLIST
(OP
'#1=(NIL PUSH-NIL T CONST LOAD LOADI LOADC LOADV LOADIC GETVALUE POP JSR
JMPTAIL VENV COPY-CLOSURE CALL CALL0 CALLS1 CALLS2 CALLSR FUNCALL
PUSH-UNBOUND JMPIFBOUNDP BOUNDP VALUES0 STACK-TO-MV MVCALL
BLOCK-OPEN TAGBODY-OPEN TAGBODY-CLOSE-NIL GO UNWIND-PROTECT-OPEN
UNWIND-PROTECT-CLOSE LIST ERROR
) )
(SETF (GETHASH OP HT) 'NIL)
)
(DOLIST
(OP
'#2=(STORE STOREI STOREC STOREV STOREIC SETVALUE BIND PROGV PUSH
MAKE-VECTOR1&PUSH CALL1 CALL2 CALLC CALLCKEY APPLY VALUES1
LIST-TO-MV MVCALLP CATCH-OPEN NOT EQ CAR CDR CONS ATOM CONSP
SYMBOL-FUNCTION SVREF SVSET
) )
(SETF (GETHASH OP HT) 'ONE)
)
(DOLIST
(OP
'#3=(MV-TO-STACK NV-TO-STACK MV-TO-LIST RETURN-FROM THROW
UNWIND-PROTECT-NORMAL-EXIT
) )
(SETF (GETHASH OP HT) 'ALL)
)
HT
))
WARN #.#'EQ #1# #2# ONE #3# ALL
)
#Y(#:TOP-LEVEL-FORM-235 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
SIMPLIFY REMOVE-OLD-DEFINITIONS
#Y(SIMPLIFY
#1022Y(00 01 00 00 00 02 8B 01 8B 00 A8 23 00 80 46 A8 D6 36 03 83 DC 80
4B A8 23 07 80 6B A8 DC 36 03 83 DC 80 67 A8 DD 36 03 83 DC 80 63
DE DF 2E 0C 16 01 EA 5B 5B AC 8C 00 5B AD 94 1F 83 42 94 54 EB 8A
00 80 4E A8 23 06 80 60 93 1F 83 2F 94 53 53 25 14 83 28 93 54 70
D5 36 01 30 98 1A 51 C2 1A 4E 8B 01 23 03 0B 93 54 70 D5 36 01 6A
98 23 04 6D 8B 01 23 05 0C 93 54 54 70 D5 36 01 6A 98 23 04 5C C4
1A FF A9 C4 1A FF A5 00 1A FF A1 C2 1A FF 9D 94 53 53 25 0D FF AB
AA E2 96 53 54 70 59 02 1A 81 B8 AA CD 1A 81 B3 94 53 53 25 10 FF
99 AA CF 1A 81 A7 AA D0 1A 81 A2 94 53 54 70 AB E7 2F D1 AB E2 8E
02 73 02 96 55 1A 81 A6 93 53 70 63 15 5B 84 69 82 A5 AB 94 ED 1A
81 2C 93 53 53 25 16 82 98 93 54 1F 82 93 93 54 70 5D 17 86 29 82
8A AB 94 54 ED 1A 81 10 AA 03 18 1A 81 04 AA 03 19 1A 80 FE 95 53
54 70 AD E2 AA 97 1A 82 2E 95 53 54 70 96 53 54 54 70 AE 5D 1A AB
AB AF 6B 02 33 73 03 2F D1 AE 8C 06 2F D3 75 08 16 04 1A FF 07 AC
03 1E 1A 81 C2 95 53 54 70 24 1C 80 4B A9 23 1D 6E AB 5D 1F 2F D1
AC E2 8E 03 59 02 1A 80 E2 AD 96 54 EF 1A 81 C0 A9 23 1D 75 AC E2
AB 30 AC 1A 81 92 AD 03 21 1A 81 3D AD CC 1A 81 15 AC 5D 23 2F D1
1A 81 D6 95 53 54 70 AA A9 87 01 2E 6E 16 03 1A 81 F5 A8 23 22 6D
16 02 1A 81 EC 93 53 53 25 24 81 E5 93 53 54 70 95 53 54 70 96 53
54 54 70 AD 5D 1A 5D 1D AD AD 31 03 33 1A 15 93 53 54 70 95 53 54
70 96 53 54 54 70 AD 5D 1A AC AC 31 02 33 14 AB 59 03 1A 81 79 94
53 54 70 96 53 54 70 AD 03 25 1A 81 61 93 53 70 A8 23 25 6B 16 01
1A 81 96 A9 5D 27 2F D1 AA 03 28 1A 80 6B 8B 01 5D 26 85 29 6E 8B
01 5D 29 86 29 81 7C AA 03 2A 14 2F D1 AA 94 54 14 2F D3 1A 80 50
AC 03 2D 1A 80 E5 93 53 70 A8 23 2B 80 52 A8 24 0E 2A 94 53 54 70
A8 23 1D 11 AB E2 8E 02 73 02 2F D1 AC 03 2E 14 2F D1 1A 80 E2 95
54 1F 51 95 54 70 5D 2C 86 29 49 16 02 1A 81 31 16 01 1A 81 2C 93
53 70 63 15 5B 84 69 0B AA 03 2F 14 2F D1 75 04 1A FD D5 93 53 70
A8 23 30 04 A8 24 31 0E AC 95 54 EE 14 2F D3 75 05 16 01 1A FD BC
16 01 1A 80 FA AD 03 32 14 AC 95 1A 21 94 53 54 70 94 53 70 A8 24
31 80 55 95 53 54 70 AA A9 87 01 2E 62 AA A9 88 01 2D 3E AD CC 14
AA 97 14 31 01 34 1A 80 90 94 53 54 70 94 53 70 A8 23 0E FE 47 A8
23 1A FE 4D A8 23 1B FE 70 A8 23 20 FE 8C A8 24 21 FE B5 95 53 54
70 A8 AB 87 01 2E FE 88 A8 AB 87 01 2D FE 87 AE 97 54 F0 1A 80 60
A8 5D 33 36 03 84 DC 0F AC 5D 32 95 14 59 02 14 2F D1 AC 96 54 1A
17 95 53 70 63 15 5B 84 69 18 AC 5D 34 2F D1 AC 5D 32 8E 03 73 02
97 55 14 2F D3 75 06 16 02 1A FD 16 16 02 1A 80 54 93 53 70 A8 24
35 80 4A 94 53 54 70 96 53 54 70 AD 03 35 14 AB 95 14 31 02 33 14
59 02 14 2F D1 AD 97 54 14 2F D3 75 07 16 03 1A FC E4 94 53 70 63
36 AA 77 69 00 94 ED 93 EC 1A FC D4 AB D5 AB 30 9C 95 F0 16 01 1A
25 16 01 1A FC BE 03 1C 1A 80 5E 16 01 94 20 56 8A 02 13 14 D5 36
01 6A 98 A9 93 21 07 A8 23 04 55 8A 01 52 16 01 16 04 89 00 56 16
01 5B 96 53 70 24 37 80 54 96 54 EA 1F 80 4E 92 53 70 23 38 14 96
54 53 70 24 0E 80 40 96 54 54 EA 1F 3A 92 53 70 24 38 34 92 53 54
70 93 53 54 54 70 AA 99 54 21 FF A2 98 54 53 54 53 14 AF 5D 39 AC
AD AC 6B 02 33 AD 73 04 2F D1 16 03 8B 00 2D 3A 8B 04 2D 3B AC 8C
01 2F D3 74 02 16 01 15 19 03
)
JMP FOR-VALUE (JMPCASE JMPCASE1-TRUE JMPCASE1-FALSE) JMPCASE1-TRUE ALL
JMPCASE1-FALSE ONE JMPHASH (ERROR GO JMPTAIL) (RETURN-FROM RET THROW)
SIMPLIFY "AT-END" COMPILER-ERROR
#S(HASH-TABLE EQ (SVREF . 13.) (CONS . 13.) (EQ . 13.) (POP . 13.)
(STACK-TO-MV . 2.) (LIST . 2.) (CONSP . 64.) (ATOM . 64.)
(SYMBOL-FUNCTION . 64.) (CDR . 64.) (CAR . 64.) (NOT . 64.)
(LIST-TO-MV . 64.) (MV-TO-LIST . 64.) (VALUES1 . 64.) (VALUES0 . 64.)
(BOUNDP . 64.) (VENV . 64.) (GETVALUE . 64.) (LOADIC . 64.)
(LOADV . 64.) (LOADC . 64.) (LOADI . 64.) (LOAD . 64.) (CONST . 64.)
(T . 64.) (NIL . 64.)
)
SKIP (SKIP 1.)
#S(HASH-TABLE EQ (STACK-TO-MV . 12.) (LIST-TO-MV . 7.) (VALUES0 . 2.)
(VALUES1 . 41.)
)
(NIL) (CAR) (POP)
#S(HASH-TABLE EQ (PUSH-UNBOUND . 726.) (NV-TO-STACK . 568.)
(MV-TO-STACK . 510.) (PUSH . 451.) (POP . 415.) (SKIPSP . 392.)
(SKIPI . 318.) (SKIP . 608.) (NOT . 139.) (VALUES1 . 123.)
)
ONE-VALUE-OPS #S(HASH-TABLE EQ (CONSP . 29.) (ATOM . 23.) (NOT . 2.))
(NOT) (CONSP) (ATOM) SKIPI LOAD 0. 1. (POP) (POP) PUSH NV-TO-STACK STORE
(VALUES1) #S(HASH-TABLE EQ (SKIPSP . 27.) (SKIPI . 2.) (SKIP . 113.))
SKIPSP (STORE 0.) (VALUES1) (SKIP 1.) (PUSH) (VALUES1) POP (LOAD 0.)
(STORE 0.) (STORE 0.) (PUSH) VALUES0 STACK-TO-MV PUSH-NIL (VALUES0 NIL)
(PUSH) PUSH-UNBOUND FOR-VALUE-TABLE RET JSR JMPTAIL REMOVE-REFERENCES
NOTE-REFERENCES
) )
#Y(#:TOP-LEVEL-FORM-236 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
OPTIMIZE-PART REMOVE-OLD-DEFINITIONS
#Y(OPTIMIZE-PART
#40Y(00 01 00 00 00 02 A9 67 00 89 00 03 00 19 03 14 69 51 5B 1A 0C 7E 01
00 14 86 35 03 A8 2D 01 7A 01 A9 84 B6 70 00 19 05
)
SIMPLIFY OPTIMIZE-VALUE
) )
#Y(#:TOP-LEVEL-FORM-237 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
OPTIMIZE-LABEL REMOVE-OLD-DEFINITIONS
#Y(OPTIMIZE-LABEL
#204Y(00 01 00 03 00 11 37 03 07 AC D4 36 01 78 98 03 37 02 07 63 01 AC
79 01 01 02 37 01 04 AA 77 C5 01 AC 94 54 22 80 90 89 04 80 93 00
19 05 5B 1A 0B A8 8B 05 7A 06 AF 68 04 77 CB 00 96 20 72 63 01 A8
AF 5B 31 01 02 16 01 A8 5B 1A 1E 7E 01 00 14 D4 36 01 6A 98 63 01
A9 6B 01 01 8A 00 08 AA AA AA 36 01 26 FF 9F 16 02 7A 01 A9 84 B6
5E 00 19 09 AB 63 01 AA 31 01 01 71 2F D3 63 01 A8 AA 5B 31 01 02
16 01 AB 2F C5 71 8A 00 05 14 D4 B0 30 9C 16 01 AE 5B 2F 56 AC 2D
06 19 07 8B 00 A8 86 35 11 63 01 A9 31 01 01 53 70 24 05 06 AD A9
86 28 FF BE 00 19 07 D6 2D 03 8A 04 FF 6D 14 69 51 8A 00 FF 69 92
54 1C 54 00 19 06
)
CODE-PART *CODE-PARTS* OPTIMIZE-LABEL COMPILER-ERROR REMOVE-REFERENCES
JMP OPTIMIZE-PART
) )
#Y(#:TOP-LEVEL-FORM-238 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
OPTIMIZE-SHORT REMOVE-OLD-DEFINITIONS
#Y(OPTIMIZE-SHORT
#581Y(00 01 00 03 00 11 37 03 07 63 00 AD 79 01 01 03 37 02 04 AB 77 C5
02 37 01 81 FD 94 54 EB 8A 01 82 20 1A 81 F6 93 54 70 AC 93 21 1C
AC A9 2E 02 63 00 A8 B1 5B 31 01 02 16 01 A8 B0 AA 69 51 36 07 6A
6D 2F 56 A8 2D 03 16 01 00 19 07 5B AE 69 51 5B 1A 80 E4 AA B2 2F
D1 AB B0 2F 51 72 B0 A9 2F 56 16 01 AB AF 2F 51 72 AF A9 2F 56 16
01 AB 7B 05 16 03 1A 80 C0 74 00 8A 01 80 7A 1A 80 67 C4 1A 80 7D
C5 1A 80 79 93 54 70 94 54 54 70 8B 03 C4 52 14 8B 04 C5 52 14 B7
96 22 17 9D ED AF B4 2F 51 72 B4 A9 2F 56 16 01 AF 7B 09 8B 0D 24
06 02 75 01 B7 95 22 17 9C EC AF B3 2F 51 72 B3 A9 2F 56 16 01 AF
7B 09 8B 0D 24 07 02 75 00 AB DC 36 01 6A 98 23 09 02 74 01 AA DC
36 01 6A 98 24 09 FF 93 8A 01 10 8A 00 0D DE 99 54 72 AF A9 2F D3
16 01 74 01 EA AE 89 02 FF 84 89 01 FF 84 C9 14 AD AD 73 03 2F D1
16 07 1A 2B E1 2D 0E 16 03 1A 24 7E 01 00 14 86 35 1D 63 00 A9 6B
01 01 8B 00 8B 00 A8 23 01 FF 2C A8 D9 36 03 83 DC FF 57 A8 23 0C
57 16 03 7A 01 A9 84 B6 56 16 02 AE E3 B0 69 51 36 05 6A 6E 2F 56
AE 2D 03 A8 5B 1A 19 7E 01 00 63 00 A9 6B 01 01 2D 10 A8 2D 11 A8
63 00 AA 6B 01 01 2E 12 7A 01 A9 84 B6 63 16 07 1A 80 BF 93 54 70
94 54 54 70 AD 94 21 05 AD 93 22 FE CA 16 04 1A 80 AA 5B AB 5B 2F
D3 AA 69 51 5B 1A 80 73 E7 B0 6B 00 17 A8 5B 1A 09 7E 01 00 14 AD
2E 14 7A 01 A9 84 B6 73 16 02 63 00 A9 8C 03 6B 02 21 A9 AD AA 31
01 02 16 03 AD AA AF 69 51 36 07 6A 6D 2F 56 A9 7B 03 16 01 1A 37
14 5B 1A 0D 7E 01 00 63 00 A9 6B 01 01 2D 15 7A 01 A9 84 B6 6F 16
02 AA 2D 03 19 06 7E 01 00 14 86 35 14 A8 B0 85 28 0F 63 00 A9 6B
01 01 92 53 70 23 01 FF 91 16 01 7A 01 A9 84 B6 5F 16 02 AB AB 2F
D3 89 00 FF B9 00 19 06 8A 01 27 AB 95 22 13 8B 03 8B 00 A8 23 01
FD FD A8 D8 36 03 83 DC FF 43 16 02 AB 95 21 05 8C 03 95 22 07 95
53 70 24 0C FF 46 00 19 05
)
*CODE-PARTS* JMP LABEL-SUBST OPTIMIZE-LABEL
(JMPCASE JMPCASE1-TRUE JMPCASE1-FALSE)
(JMPCASE JMPCASE1-TRUE JMPCASE1-FALSE) JMPCASE1-TRUE JMPCASE1-FALSE
FOR-VALUE ALL (VALUES1) JMPCASE JMPHASH OPTIMIZE-SHORT COMPILER-ERROR
#.#'INTEGERP SIMPLIFY OPTIMIZE-VALUE OPTIMIZE-JMPCASE #.#'COPY-LIST
NOTE-REFERENCES OPTIMIZE-PART
) )
#Y(#:TOP-LEVEL-FORM-239 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
GET-BOOLEAN-VALUE REMOVE-OLD-DEFINITIONS
#Y(GET-BOOLEAN-VALUE
#191Y(00 01 00 00 00 02 5B 43 00 80 AD 1A 16 97 53 53 25 01 80 A2 C0 44
1A 80 9F C1 44 1A 80 9A 95 51 ED 7A 05 97 20 67 8A 05 80 8C 00 29
01 00 0B 00 00 A8 AC 65 04 02 AF 69 51 5B 1A 80 72 00 16 06 44 1A
80 74 93 54 54 53 1C 73 93 54 54 53 1A 2C 7E 01 00 14 86 35 37 63
05 A9 31 01 01 70 8B 00 A8 23 06 60 A8 DB 36 03 84 DC 18 B3 94 54
53 22 03 D7 97 32 B3 94 54 54 53 22 0F C0 14 97 32 16 02 1A 2A DC
2D 09 16 02 1A 23 16 02 1A 1F 92 53 25 0A 17 00 16 04 44 1A 1F C0
19 04 C1 19 04 A8 23 03 76 A8 23 02 75 00 19 04 DC 2D 09 7A 01 A9
84 B6 FF 9C 16 04 00 44 14 89 01 63 15 19 03
)
VALUE
#S(HASH-TABLE EQ (UNWIND-PROTECT-CLEANUP . 15.) (CATCH-CLOSE . 15.)
(TAGBODY-CLOSE . 15.) (BLOCK-CLOSE . 15.) (VALUES1 . 15.)
(SETVALUE . 15.) (STOREIC . 15.) (STOREC . 15.) (STOREV . 15.)
(STOREI . 15.) (STORE . 15.) (SKIPSP . 15.) (SKIPI . 15.) (SKIP . 15.)
(UNBIND1 . 15.) (NOT . 12.) (LIST . 7.) (CONS . 7.) (CONST . 7.)
(T . 7.) (TAGBODY-CLOSE-NIL . 2.) (VALUES0 . 2.) (NIL . 2.)
)
FALSE TRUE
#Y(GET-BOOLEAN-VALUE-NEU
#29Y(00 01 00 00 00 02 07 00 00 1C 09 A9 07 00 00 22 09 00 19 02 93 0C
00 00 19 02 00 45 01
)
NIL NIL
)
*CODE-PARTS* JMP (JMPCASE JMPCASE1-TRUE JMPCASE1-FALSE) GET-BOOLEAN-VALUE
COMPILER-ERROR
#S(HASH-TABLE EQ (CATCH-OPEN . 1.) (BLOCK-OPEN . 1.) (JMPIFBOUNDP . 1.))
) )
#Y(#:TOP-LEVEL-FORM-240 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
OPTIMIZE-JMPCASE REMOVE-OLD-DEFINITIONS
#Y(OPTIMIZE-JMPCASE
#145Y(00 02 00 00 00 03 93 53 70 23 00 80 64 00 19 03 AB D5 AB 8C 06 67
02 73 03 2F D1 A9 AD AB 69 51 36 06 D7 6A 6D 2F 56 AB 2D 04 A9 D9
36 01 6A 98 2D 06 19 05 DC AC 8C 05 1A 21 92 53 53 25 09 1E A8 8C
01 93 ED 92 EC 16 02 1A 10 AE 2D 04 AF 2D 06 19 08 A9 7A 01 14 2F
D3 7C 02 92 20 5C AA 86 A9 08 AE D4 AD AF 73 03 2F D1 AA 85 A7 5D
00 19 08 93 53 54 70 94 53 54 54 70 A9 93 21 FF 91 A9 DB 36 01 85
98 08 A8 DB 36 01 86 98 FF A6 00 19 05
)
JMPCASE JMP GET-BOOLEAN-VALUE 1. OPTIMIZE-PART CODE-PART OPTIMIZE-SHORT
FOR-VALUE 0.
#S(HASH-TABLE EQ (NOT . 20.) (UNWIND-PROTECT-CLEANUP . 1.)
(CATCH-CLOSE . 1.) (TAGBODY-CLOSE . 1.) (BLOCK-CLOSE . 1.)
(VALUES1 . 1.) (SKIPSP . 1.) (SKIPI . 1.) (SKIP . 1.) (UNBIND1 . 1.)
) ) )
#Y(#:TOP-LEVEL-FORM-241 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
OPTIMIZE-VALUE REMOVE-OLD-DEFINITIONS
#Y(OPTIMIZE-VALUE
#243Y(00 01 00 01 00 08 37 01 07 63 00 AB 79 01 01 01 8B 01 8B 00 A8 D5
36 03 84 DC 80 BD 93 54 70 94 54 54 70 8B 03 24 02 09 A9 D7 36 01
6A 98 24 04 0E 8B 03 24 05 15 A8 D7 36 01 6A 98 23 04 0C AD DA 97
54 72 77 D1 03 AE AE 2E 07 8C 05 67 08 A8 23 09 38 A8 24 11 80 5F
AA B0 AC 69 51 36 07 6A 6D 2F 56 AE DE AB E6 6B 02 1F 2F D1 8B 04
24 05 0D E7 99 54 72 AF A9 2F D3 16 01 AE 2D 0D AE 2D 0E 94 14 2D
0F AF AF 2E 10 19 08 A9 B0 AB 69 51 36 07 6A 6D 2F 56 AE DE AC DF
6B 02 1F 2F D1 8B 04 24 02 0D E0 99 54 72 AF A9 2F D3 16 01 AE 2D
0D AE 2D 0E 93 1A 4B 00 19 08 AD DE AB AB 73 03 2F D1 A9 E8 36 01
6A 98 36 01 27 02 09 FF 37 8C 04 67 08 89 00 64 00 19 07 A8 24 0A
13 93 54 70 A8 D7 36 01 86 98 06 94 54 54 53 1C 62 00 19 06 00 19
05
)
*CODE-PARTS* (JMPCASE JMPCASE1-TRUE JMPCASE1-FALSE) JMPCASE1-TRUE
FOR-VALUE ALL JMPCASE1-FALSE JMPCASE OPTIMIZE-JMPCASE GET-BOOLEAN-VALUE
TRUE JMP (TRUE) (VALUES1) SIMPLIFY OPTIMIZE-PART OPTIMIZE-LABEL
OPTIMIZE-SHORT FALSE (FALSE) (VALUES1) CODE-PART
) )
#Y(#:TOP-LEVEL-FORM-242
#26Y(00 00 00 00 00 01 D4 2D 01 D4 00 29 01 A8 2A 02 01 0B 00 00 EA 30 96 BE
19 01
)
COALESCE REMOVE-OLD-DEFINITIONS
#Y(COALESCE
#126Y(00 00 00 01 00 07 37 01 1B 5B D5 63 02 69 16 1A 05 A9 7B 02 7C 01
A9 A9 88 01 30 75 16 02 A8 30 65 16 01 EB 28 29 01 36 05 C1 ED AF
78 63 02 69 68 AB 5B 1A 33 7E 01 00 63 02 A9 6B 01 01 92 1F 23 92
54 1F 1F 92 54 54 1F 1A 8B 00 93 54 70 94 54 54 70 6B 02 1F AA A9
AE 5B 2F 69 72 A9 AE AA 2F 6A 16 02 16 01 7A 01 A9 84 B6 49 16 02
00 0B 01 00 A9 65 04 01 A9 2F 6C 06 01 00 19 04
)
NIL 0. *CODE-PARTS* #.#'EQUAL
#Y(COALESCE-1
#261Y(00 02 00 00 00 03 93 54 1B 03 00 19 03 5B AA 1A 0E 8B 00 63 01
A9 6B 01 01 7B 02 16 01 7A 00 92 20 6F 16 01 A8 77 CC 00 5B 63
01 69 16 D6 5B AE 1A 0E 8B 00 63 03 A9 6B 01 01 7B 02 16 01 7A
00 92 20 6F 16 01 A8 77 CC 00 36 04 6A 67 1A 3C AD B0 1A 16 16
03 1A 17 8B 01 93 1F 77 8B 01 8B 01 A9 2E 06 16 02 7A 01 7A 00
93 20 6B 16 02 AD 1A 08 A8 93 53 71 2F D1 7A 00 92 20 75 16 01
60 01 00 7B 04 60 01 00 AC 2E 07 16 02 D8 AC 88 00 26 17 28 29
01 8B 04 92 53 0B 01 00 A9 65 05 01 8C 06 87 00 26 FF A9 16 02
DC 67 09 DE A9 DF 6B 02 1F AD B0 1A 1C 16 03 1A 1D 8B 01 93 1F
77 8B 01 63 01 AD 95 72 A9 AB AA 31 01 02 16 04 7A 01 7A 00 93
20 65 16 02 A9 B0 2F 56 A9 E0 AD 30 9C AC AA 69 CB 63 01 36 01
2F 1A AA 63 03 36 01 2F 1A 16 02 63 01 AA 6B 01 01 2D 0D AD 07
01 00 32 02 0C 00 00 19 07
)
NIL *CODE-PARTS* #.#'MAX *CODE-POSITIONS* #.#'CONSP
#Y(COALESCE-1-1 #15Y(00 01 00 00 00 02 8B 01 61 00 00 30 29 19 02) NIL
)
REMOVE-REFERENCES NOTE-REFERENCES ALL MAKE-LABEL JMP (NIL) CODE-PART
OPTIMIZE-PART
) ) )
#Y(#:TOP-LEVEL-FORM-243 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
OPTIMIZE-ALL REMOVE-OLD-DEFINITIONS
#Y(OPTIMIZE-ALL
#641Y(00 00 00 00 00 01 D4 1A 80 59 63 01 A9 6B 01 01 8A 00 1F 14 69 C5
8C 00 8A 00 0E AB A9 D6 36 01 6A 98 85 28 04 D7 D6 2E 04 A8 AC AC
AC 2B 04 05 16 02 16 01 63 01 A9 6B 01 01 8A 00 04 A9 A9 2E 06 16
01 63 01 A9 6B 01 01 8A 00 04 A9 A9 2E 07 16 01 63 01 A9 6B 01 01
8A 00 04 A9 A9 2E 08 16 01 7C 00 A8 63 01 69 16 86 28 FF 9E 16 01
2C 09 1B FF 93 D4 63 01 69 16 1A 81 7E 9A F3 16 08 1A 81 77 AA B0
98 32 1C 80 99 94 F1 16 02 1A 80 94 94 F0 16 02 1A 80 8D B1 94 54
1A 80 6E 16 02 8A 03 81 02 AE AE 63 01 AE 31 01 01 54 72 2F D3 63
01 A8 AD 5B 31 01 02 16 01 98 F2 16 08 00 29 01 A9 69 C5 8C 00 A8
69 51 63 0A AE 31 01 01 0B 03 00 01 03 8A 04 FF A4 AE 65 0B 01 AC
5B A9 83 B6 FF BB 7E 01 00 14 86 35 3B A8 B4 85 28 36 63 01 A9 31
01 01 70 8B 00 A8 23 0C FF 86 A8 23 0D 1B A8 23 0E FF 92 A8 24 0F
19 B1 94 54 53 22 13 AA AE 98 32 1C 0D 94 EF 16 02 1A 09 AA AF 98
32 1B FF 6E 16 02 7A 01 1A FF B4 E4 93 54 1A 10 63 01 AA 6B 01 01
8B 00 AF 93 54 53 21 6D E5 93 54 70 73 02 B1 B1 AA 8C 05 6B 02 1F
2F D3 63 01 A8 AE 5B 31 01 02 16 01 9B F5 16 0B 1A FF 60 E7 94 54
1A 23 63 01 AB 6B 01 01 8B 00 92 54 70 E6 36 01 85 98 09 92 54 54
70 E6 36 01 30 98 14 B0 94 54 53 21 5A E8 94 54 70 AA 73 03 B2 B2
AA 8C 06 6B 02 1F 2F D3 63 01 A8 B0 5B 31 01 02 16 01 9C F6 16 0C
1A FF 18 89 01 FF 85 89 02 FF B5 16 09 1A 80 47 AA E0 95 54 70 73
02 2F D1 1A 80 A0 E0 94 54 70 73 02 E7 95 54 54 70 96 54 70 E6 36
01 85 98 09 96 54 54 70 E6 36 01 30 98 14 59 03 1A 80 76 E0 94 54
54 70 73 02 E5 95 1A 80 66 63 01 A9 6B 01 01 89 00 FE C6 16 01 7D
00 14 24 00 6E 16 01 63 0A A8 AA D4 31 01 02 16 01 E9 5D 16 63 01
63 0A 6B 01 24 5D 17 A9 36 05 78 6F 00 14 5D 18 5D 19 36 02 78 83
00 5B A9 5B A9 83 B6 80 4D 7E 01 00 70 8B 00 8B 00 A8 23 0C FF 76
A8 23 0D FF 7D A8 23 0E FF 9B A8 24 0F 14 E0 94 54 70 73 02 E4 95
54 54 70 59 02 14 8C 04 79 02 1F 02 16 02 A8 69 C5 92 54 1C 07 A8
8C 01 73 01 2F D3 16 01 A8 AC 77 CB 03 16 01 7A 01 1A FF AE 16 02
15 19 03
)
0. *CODE-PARTS* CODE-PART OPTIMIZE-ALL COMPILER-ERROR OPTIMIZE-LABEL
OPTIMIZE-JMPCASE OPTIMIZE-VALUE OPTIMIZE-SHORT COALESCE *CODE-POSITIONS*
#Y(OPTIMIZE-ALL-BETTER
#49Y(00 02 00 00 00 03 93 51 1D 25 63 01 AA 6B 01 01 63 01 AC 6B 01 01
A9 61 00 00 87 01 2E 0A A9 A9 61 00 00 31 02 2F 19 05 A8 AA 31 01
2F 19 05 19 03
)
NIL *CODE-POSITIONS*
)
JMP JMPCASE JMPCASE1-TRUE JMPCASE1-FALSE JMPIFNOT1 JMPIF1 FOR-VALUE
JMPIFNOT JMPIF LIST #.#'CONS #.#'CAR #.#'> #.#'CDR
) )
#Y(#:TOP-LEVEL-FORM-244 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
COMPILE-TO-LAP REMOVE-OLD-DEFINITIONS
#Y(COMPILE-TO-LAP
#85Y(00 00 00 00 00 01 D4 5C 36 06 BF EC 69 1B D4 5C 36 06 BF EC 2F 1B 10
02 95 10 03 D8 59 01 10 05 BF 10 06 00 10 07 00 10 08 00 10 09 00 10
0A 63 0B E0 A9 E1 78 53 00 E2 A9 E3 78 53 00 2D 10 12 06 2C 11 14 8B
00 7A 01 E6 85 29 04 E7 E8 2E 15 15 12 02 19 02
)
10. 0. *CODE-POSITIONS* *CODE-PARTS* (START) *CODE-PART* *CODE-INDEX*
*DEAD-CODE* *LABEL-SUBST* *CURRENT-VALUE* *CURRENT-VARS* *FUNC* FNODE 2.
ANODE 3. TRAVERSE-ANODE OPTIMIZE-ALL (START) COMPILE-TO-LAP START
COMPILER-ERROR
) )
#Y(#:TOP-LEVEL-FORM-245
#70Y(00 00 00 00 00 01 00 29 04 D4 63 01 36 01 69 69 2D 02 0B 00 00 D7 63 01
36 01 69 69 2D 02 0B 00 01 D8 63 01 36 01 69 69 2D 02 0B 00 02 D9 63 01
36 01 69 69 2D 02 0B 00 03 DA 2D 07 DA A9 65 08 01 30 96 C4 19 02
)
1+ FUNCTION-CODES CALLS-CODE 1- ATOM CONSP INSERT-COMBINED-LAPS
REMOVE-OLD-DEFINITIONS
#Y(INSERT-COMBINED-LAPS
#946Y(00 01 00 00 00 02 A9 8A 00 80 45 8B 00 92 1F 38 7E 00 00 14 A8 23
01 05 A8 24 02 80 50 16 01 93 54 53 1F 10 93 54 53 70 A8 23 03 80
51 A8 23 04 80 4C 16 01 A9 DB 2F D1 A9 A9 23 01 80 69 07 00 03 14
95 54 55 14 2F D3 16 01 7A 00 89 00 FF BB 16 01 A9 8C 00 8A 01 83
54 8B 01 92 1F 83 44 93 53 1F 80 8F 8B 00 94 53 53 25 08 80 79 16
01 1A 57 C3 1A 22 A9 23 01 79 C4 1A 1B C4 1A 18 16 01 93 54 53 54
54 53 1B FF AB A9 94 54 53 70 23 03 63 A9 23 01 66 C3 14 95 54 53
54 70 73 02 2F D1 A9 94 54 54 1A FF 9E 07 00 02 1A FF 94 C7 1A 37
C8 1A 01 C9 14 95 53 54 54 53 1C 02 7A 00 8B 03 8C 00 5B 2F D3 16
01 15 1A 1D CA 1A 1A CB 1A 17 CC 1A 14 AB A9 8C 03 97 53 71 31 02
20 72 2F D1 AB 95 54 1A 82 8D 00 14 E3 36 02 2F E3 71 89 00 62 16
01 92 53 25 10 82 AA 95 1A 0D D1 1A 82 2E A9 A9 79 02 33 01 16 01
94 54 EC AA CF 6C 89 00 6F 16 01 AB A9 23 12 64 D2 1A 82 0E AA CF
6C 89 00 57 16 02 1A 82 7E AC 5D 17 94 1A 81 03 AC 5D 19 AA 98 54
53 54 70 59 03 1A 80 F8 93 54 70 95 54 70 5D 16 85 29 60 95 54 53
1F 07 95 54 53 70 23 18 5B AC 5D 1A 94 1A 81 6F 16 03 1A 82 46 03
1C 1A 0A AB 95 54 53 70 23 03 74 03 1D 14 95 54 70 97 54 53 54 70
73 03 2F D1 AB 95 54 54 1A 81 F2 93 53 1F 82 1D 93 53 70 A8 23 15
FF AE A8 24 1B 1D 94 54 53 1F 18 94 54 53 70 A8 23 03 05 A8 24 04
FF B6 16 01 94 54 53 54 54 53 1C FF B4 16 02 1A 81 F1 AD 03 20 1A
80 41 AD 5D 21 AC 99 54 53 54 70 59 03 1A 38 95 54 53 70 A8 23 1F
65 A8 23 18 67 16 04 1A 81 CD AD 03 23 1A 1E 95 54 53 1F 80 FB 95
54 53 70 A8 23 1F 6D A8 24 18 1E AA 97 54 53 54 70 86 28 15 AD 03
24 14 AC 59 02 14 2F D1 AD 97 54 71 2F D3 16 04 1A 81 98 16 04 1A
81 93 95 54 53 1F 80 C6 95 54 53 70 24 18 80 BE 95 54 53 54 70 8E
02 86 28 80 B3 AC 5D 26 AB 30 AC 14 59 02 14 2F D1 AC 96 54 1A 80
93 03 28 1A 1E AC 96 54 70 61 00 00 85 29 72 03 29 1A 10 03 2A 1A
0C AC 96 54 70 61 00 00 85 29 72 03 2B 14 AB 73 02 2F D1 AC 96 54
54 1A 80 64 93 53 1F 81 32 92 54 70 94 53 70 A8 23 1E 80 5C A8 23
22 FF 5C A8 23 25 FF 8C A8 24 1F 80 53 95 54 53 1F 35 95 54 70 61
00 00 85 29 09 95 54 70 61 00 01 86 29 23 95 54 54 53 1F 1D 95 54
54 70 5D 27 85 29 FF 8F 95 54 54 53 70 24 18 0B 95 54 54 53 54 70
AA 85 28 FF 8E AC 5D 2C 95 14 73 02 2F D1 AC 96 71 2F D3 16 03 1A
80 CD 95 54 53 20 FE E9 16 03 1A 80 C2 AA 5D 2E 94 54 70 73 02 2F
D1 AA 94 54 1A 14 8B 01 5D 2F 86 29 15 AA 5D 30 94 54 54 70 73 02
2F D1 AA 94 71 2F D3 16 01 1A 80 97 AA 5D 31 94 54 1A 2E E6 1A 04
7C 00 7A 02 8B 02 5D 32 85 29 75 A8 23 12 0E AB 03 33 14 AA 59 02
14 2F D1 AB 95 1A 3E 16 02 1A 80 6B AA 03 34 1A 08 AA 8B 01 94 54
70 59 02 14 2F D1 16 01 1A 80 56 28 29 02 93 54 54 53 0B 00 00 93
54 54 54 54 0B 00 01 A8 65 35 01 60 01 00 2F 6C 16 01 8B 02 92 54
54 71 00 14 2F D3 16 02 1A 2B 8B 01 5D 2D 86 29 22 93 54 53 1F 1D
93 54 53 70 24 18 16 93 54 53 54 70 93 54 70 86 28 0B 93 54 54 70
93 54 54 53 21 FF 40 16 01 92 EB 54 EA 89 01 FC AC 16 02 93 19 02
)
NIL ATOM CONSP JMPIF JMPIFNOT JMPIFATOM JMPIFCONSP (PUSH)
#S(HASH-TABLE EQ (RET . 101.) (STOREC . 98.) (STORE . 95.)
(JMPIFNOT . 72.) (JMPIF . 69.) (PUSH . 66.)
)
((T . T&PUSH) (CONST . CONST&PUSH) (LOADI . LOADI&PUSH)
(LOADC . LOADC&PUSH) (LOADV . LOADV&PUSH) (GETVALUE . GETVALUE&PUSH)
(CALL . CALL&PUSH) (CALL1 . CALL1&PUSH) (CALL2 . CALL2&PUSH)
(CALLS1 . CALLS1&PUSH) (CALLS2 . CALLS2&PUSH) (CALLSR . CALLSR&PUSH)
(CALLC . CALLC&PUSH) (CALLCKEY . CALLCKEY&PUSH) (CAR . CAR&PUSH)
(CDR . CDR&PUSH) (CONS . CONS&PUSH) (LIST . LIST&PUSH)
(FUNCALL . FUNCALL&PUSH) (APPLY . APPLY&PUSH)
(COPY-CLOSURE . COPY-CLOSURE&PUSH)
)
((EQ . JMPIFEQ) (LOAD . LOAD&JMPIF) (CALL1 . CALL1&JMPIF)
(CALL2 . CALL2&JMPIF) (CALLS1 . CALLS1&JMPIF) (CALLS2 . CALLS2&JMPIF)
(CALLSR . CALLSR&JMPIF)
)
((EQ . JMPIFNOTEQ) (LOAD . LOAD&JMPIFNOT) (CALL1 . CALL1&JMPIFNOT)
(CALL2 . CALL2&JMPIFNOT) (CALLS1 . CALLS1&JMPIFNOT)
(CALLS2 . CALLS2&JMPIFNOT) (CALLSR . CALLSR&JMPIFNOT)
)
((NIL . NIL&STORE) (T . T&STORE) (POP . POP&STORE)
(CALLS1 . CALLS1&STORE) (CALLS2 . CALLS2&STORE) (CALLSR . CALLSR&STORE)
)
((LOAD . LOAD&STOREC)) ((SKIP . SKIP&RET)) #.#'EQ
#S(HASH-TABLE EQ (JMPHASH . 600.) (JMPIFNOT . 584.) (JMPIF . 584.)
(UNWIND-PROTECT-CLOSE . 579.) (UNBIND1 . 542.) (JSR . 507.)
(JMPIFBOUNDP . 643.) (LOAD . 373.) (CONST . 138.) (PUSH-NIL . 37.)
(NIL . 37.)
)
#Y(INSERT-COMBINED-LAPS-NILPUSHER-P
#49Y(00 01 00 00 00 02 8B 01 30 2B 1E 23 93 53 70 A8 23 00 0D 89 00 07
94 54 70 D5 85 29 09 00 19 03 94 53 54 53 19 03 AA 95 54 71 2F D3
C0 19 03 19 02
)
PUSH-NIL (PUSH) 1.
)
1. (NIL&PUSH) PUSH-NIL SYMBOL-FUNCTION (PUSH) CONST&SYMBOL-FUNCTION&PUSH
STORE CONST&SYMBOL-FUNCTION&STORE CONST&SYMBOL-FUNCTION EQ JMPIFEQTO
JMPIFNOTEQTO CAR PUSH LOAD&CAR&PUSH LOAD&CAR&STORE CDR LOAD&CDR&PUSH
LOAD&CDR&STORE CONS LOAD&CONS&STORE (PUSH) LOAD&INC&PUSH LOAD&DEC&PUSH
LOAD&INC&STORE LOAD&DEC&STORE LOAD&PUSH (NIL) UNBOUND->NIL (PUSH)
JSR&PUSH JSR (UNBIND1) UNBIND (UNWIND-PROTECT-CLOSE)
#Y(INSERT-COMBINED-LAPS-1
#22Y(00 02 00 00 00 03 61 00 00 AA 61 00 01 69 B8 AC AA AA 2F 6A 19 05
)
NIL
) ) )
#Y(#:TOP-LEVEL-FORM-246 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
NUM-OPERAND-LENGTH REMOVE-OLD-DEFINITIONS
#Y(NUM-OPERAND-LENGTH
#27Y(00 01 00 00 00 02 A9 D4 87 01 2D 09 A9 D6 87 01 2D 06 C2 19 02 BF 19
02 C1 19 02
)
128. 1. 32768. 2. 6.
) )
#Y(#:TOP-LEVEL-FORM-247 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
ASSEMBLE-LAP REMOVE-OLD-DEFINITIONS
#Y(ASSEMBLE-LAP
#833Y(00 01 00 00 00 02 A9 D4 8A 01 81 4F 8B 01 92 1F 26 8B 00 63 01 36
01 69 69 89 00 04 D6 D7 2E 04 D9 93 57 54 70 DA A9 24 07 08 95 54
70 DC 87 01 2D 0C 93 25 0C 81 09 A8 AA 2F 56 1A 81 15 DD DC 8B 05
DE 36 06 6A 7B 6B 02 35 97 54 70 79 03 33 02 C9 EB 8B 03 59 01 ED
1A 80 E5 A8 96 1A 80 5B 92 1A 20 7C 04 DA 96 54 53 72 96 1A 80 A7
A8 96 54 70 67 0D 31 02 33 1A 14 A8 96 54 70 67 0D 79 02 33 00 14
78 AB 00 1A 80 B6 A8 30 AB EA 14 96 54 1A 28 A8 96 54 70 67 0D 79
02 33 00 14 96 54 54 70 67 0D 31 02 33 1A 0D A8 96 54 70 67 0D 79
02 33 00 14 30 AB EA 14 96 54 54 54 70 67 0D 79 02 33 00 1A 80 7A
A8 96 54 70 67 0D 31 02 33 1A 03 A8 30 AB EA 7C 04 DA 96 54 54 53
72 96 54 1A 34 A8 96 54 70 67 0D 79 02 33 00 14 96 54 1A 11 A8 96
54 70 67 0D 79 02 33 00 14 30 AB 1A 09 A8 96 54 70 67 0D 31 02 33
EA 7C 04 DA 96 54 54 54 53 72 96 54 54 71 A9 2F D1 16 01 1A 23 A8
96 54 70 67 0D 79 02 33 00 95 54 71 8A 00 11 7C 05 DA 93 53 72 A9
A9 2F D1 16 01 7A 00 89 00 6F 16 01 AC A9 79 02 33 04 AD AA AA AD
8C 07 6B 03 1F 2F D1 16 03 16 01 7A 01 89 01 FE B1 16 02 5B D4 AB
5B 1A 80 9D A8 AB 2F 56 1A 80 94 7E 01 00 1F 74 AA 93 54 70 79 02
33 02 92 53 25 0E 80 81 92 54 54 71 93 53 25 0F 29 92 1A 27 92 54
1A 23 92 54 54 1A 1E AA E8 2F D1 AF 30 AB 1A 80 50 8B 01 A8 23 06
70 16 01 1A 80 4E AA E9 2F D1 03 16 1A 38 00 14 5B A9 83 B6 80 45
7E 01 00 AD 8B 01 79 02 33 05 8C 00 69 51 AE 6B 01 34 E4 A9 E5 87
02 2F 25 E6 A9 E7 87 02 2F 45 8B 01 A8 23 06 4A A8 24 14 12 AA E9
2F D1 03 17 14 B0 31 02 33 F1 75 08 16 01 1A 02 16 01 16 01 7A 01
1A FF B6 16 03 7A 01 A9 84 B6 FF 65 16 02 93 16 02 1B FF 4F 00 29
02 00 0B 00 00 BE 0B 00 01 92 29 01 A9 2A 18 01 0B 00 00 A8 65 19
01 A9 65 1A 01 AD 5B 1A 81 03 7E 01 00 1F 80 FB 60 05 01 93 54 70
31 02 33 0B 05 01 92 54 54 70 06 05 00 32 92 53 25 1B 80 E1 92 1A
80 54 92 1A 15 92 1A 80 B1 92 54 54 54 70 96 1A 1C 92 54 54 54 70
96 32 92 54 54 54 54 70 06 05 00 32 1A 80 BA 92 54 54 54 70 06 05
00 32 92 54 1A 24 92 54 54 54 70 96 32 92 54 54 54 54 70 96 1A 10
92 54 54 54 70 96 32 92 54 54 54 54 70 06 05 00 32 92 54 54 54 54
54 70 96 32 1A 80 80 92 54 54 54 70 96 1A 08 92 54 54 54 70 06 05
00 32 92 54 1A 80 45 92 54 54 54 70 96 32 92 54 54 54 54 70 96 32
1A 31 92 54 54 54 70 96 32 92 54 54 54 54 70 06 05 00 32 1A 1E 92
54 54 54 70 96 32 96 29 01 93 54 54 54 54 53 0B 00 00 A8 65 1C 01
60 01 00 2F 6C 16 01 92 54 54 54 54 54 70 95 32 1A 1D 92 54 54 54
70 96 32 92 54 54 54 71 5B 1A 08 7E 01 00 14 97 32 7A 01 A9 84 B6
74 16 02 7A 01 A9 84 B6 FE F8 16 05 60 00 00 30 65 19 03
)
0. INSTRUCTION-CODES ASSEMBLE-LAP "ILLEGAL INSTRUCTION" COMPILER-ERROR
#.INSTRUCTION-TABLE 1. K #.SHORT-CODE-OPSIZE 146. #.INSTRUCTION-TABLE-K O
#S(HASH-TABLE EQ (NLX . 232.) (NHL . 202.) (NBL . 187.) (NNL . 172.)
(BL . 156.) (NL . 145.) (NBN . 116.) (NNN . 94.) (BN . 85.) (NB . 68.)
(NN . 57.) (L . 46.) (B . 43.) (N . 38.) (K . 38.) (O . 267.)
)
NUM-OPERAND-LENGTH
#S(HASH-TABLE EQ (NLX . 2.) (NHL . 2.) (NBL . 2.) (NNL . 2.) (BL . 2.)
(NL . 2.) (L . 2.)
)
#S(HASH-TABLE EQ (NHL . 8.) (NBL . 8.) (NNL . 8.) (NLX . 4.) (BL . 4.)
(NL . 4.) (L . 1.)
)
-64. 63. -16384. 16383. 2. 6. 5. 4.
#Y(ASSEMBLE-LAP-NEW-BYTE
#16Y(00 01 00 00 00 02 A9 07 00 00 55 0C 00 00 19 02) NIL
)
#Y(ASSEMBLE-LAP-NUM-OPERAND
#56Y(00 01 00 00 00 02 A9 D5 87 01 2D 23 A9 D6 88 01 2D 20 D5 D7 D8 6A
E9 AB 6A EC 6B 02 33 07 00 00 32 D8 D9 6A E9 AA 30 EC 14 07 00 00
32 19 02 93 1A 76 DA DB 2E 08 19 02
)
NIL 128. 32768. 7. 8. 0. ASSEMBLE-LAP "15 BIT" COMPILER-ERROR
)
#Y(ASSEMBLE-LAP-LABEL-OPERAND
#121Y(00 01 00 00 00 02 61 01 01 8B 02 31 02 33 0C 01 01 8C 01 69 51
61 01 01 6B 01 34 8B 02 A8 23 01 80 44 A8 23 04 80 42 A8 24 07
80 4A D9 07 00 00 32 D7 07 00 00 32 DA DC 6A E9 AA 6A EC 07 00
00 32 DA DD 6A E9 AA 6A EC 07 00 00 32 DA DA 6A E9 AA 30 EC 14
07 00 00 32 C4 14 D7 6A E9 AA 6A EC 07 00 00 32 19 04 C0 1A 70
D9 D6 DA 6A E9 AB 6A EC 31 02 33 1A 5D 00 19 04
)
NIL 1. 7. 0. 2. 128. 8. 6. 24. 16.
)
#S(HASH-TABLE EQ (NLX . 198.) (NHL . 157.) (NBL . 138.) (NNL . 121.)
(BL . 107.) (NL . 99.) (NBN . 70.) (NNN . 54.) (BN . 41.) (NB . 21.)
(NN . 13.) (L . 9.) (B . 6.) (N . 2.) (K . 2.) (O . 227.)
)
#Y(ASSEMBLE-LAP-1
#25Y(00 02 00 00 00 03 61 00 00 AA 69 51 61 02 01 6B 01 34 AC AA AA 2F
6A 19 05
)
NIL
) ) )
#Y(#:TOP-LEVEL-FORM-248 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
DISASSEMBLE-LAP REMOVE-OLD-DEFINITIONS
#Y(DISASSEMBLE-LAP
#433Y(00 02 00 00 00 03 00 29 01 76 03 00 00 92 29 02 5B BE 0B 01 00 5B
00 0B 02 01 94 29 01 AB 2A 01 01 0B 00 00 92 29 01 A9 65 02 01 AA
2A 03 01 0B 01 00 06 06 00 1C 81 40 06 05 00 ED 06 02 00 6C A8 D8
87 01 30 2B DC 93 57 14 8B 00 93 54 70 A8 23 09 34 A8 DE 36 03 83
DC 35 A8 23 0B 35 A8 24 0C 80 60 A9 36 01 06 07 00 6C 59 02 16 03
1A 80 F9 D9 A9 6B 02 33 DA 30 C8 3E 02 DB 94 57 14 A9 59 02 16 02
1A 80 E3 A9 59 01 16 03 1A 80 DB A9 97 1A 56 A9 06 07 00 1A 50 A9
97 1A 0D A9 97 6C 06 08 00 1A 80 43 A9 06 07 00 6C 98 1A 3B A9 97
6C 98 1A 06 A9 97 6C 06 08 00 6C 99 1A 80 4D A9 97 1A 20 A8 23 0D
52 A8 23 0E 52 A8 23 0F 57 A8 23 10 5B A8 23 11 5D A8 23 12 64 A8
24 13 18 A9 06 07 00 6C 36 01 06 08 00 6C 59 03 16 03 1A 80 79 A9
97 6C 98 1A 0F A8 23 14 76 A8 24 15 80 5E A9 97 6C 06 08 00 6C 36
01 06 09 00 6C 59 04 16 03 1A 80 56 97 29 01 97 6C A8 B7 69 B8 00
0B 02 00 AA 65 17 01 A9 2F 6C AC AA 36 01 06 0B 00 6C 60 05 00 31
03 1F 16 06 1A 30 96 6C 5B D4 1A 0A 36 01 06 09 00 6C 7B 01 7C 00
A8 AB 88 01 30 70 16 01 AB AA AA 6A 65 31 02 1F 16 05 1A 0C A8 23
16 FF B1 A8 23 18 53 00 16 03 EA AC 93 72 7B 05 16 01 06 06 00 1B
FE C0 16 03 5B 8A 00 2D 06 03 01 1C 28 92 53 70 06 04 01 53 70 88
01 2B 1C 06 03 01 70 7B 00 06 03 01 54 0B 03 01 8A 02 0F 8C 02 AB
AA 77 D2 01 62 02 89 00 53 89 02 71 15 19 07
)
0.
#Y(DISASSEMBLE-LAP-NEXT-BYTE
#28Y(00 00 00 00 00 01 61 00 00 30 AB 0C 00 00 07 01 00 70 07 01 00 54
0C 01 00 15 19 01
)
NIL
)
#Y(DISASSEMBLE-LAP-NUM-OPERAND
#37Y(00 00 00 00 00 01 07 00 00 6C A8 D5 87 01 2D 12 D6 D7 AA 6B 02 33
6B 02 35 07 00 00 6C 31 02 33 19 02 15 19 01
)
NIL 128. 256. -128.
)
#Y(DISASSEMBLE-LAP-LABEL-OPERAND
#173Y(00 00 00 01 00 07 37 01 80 6D 07 00 00 6C A8 D5 87 01 2D 80 4E
D7 A9 79 02 33 00 14 D6 87 01 2D 06 D7 A9 79 02 33 00 D8 A9 6B
02 35 07 00 00 6C 79 02 33 00 14 86 A6 3B D8 D8 D8 07 00 00 6C
6B 02 35 07 00 00 6C 6B 02 33 6B 02 35 07 00 00 6C 6B 02 33 6B
02 35 07 00 00 32 14 31 02 33 1A 14 92 1A 11 A8 D6 87 01 2D 77
D7 93 1A 6D 14 A9 2F D3 1A 35 92 16 01 EB 61 01 00 AA 6B 02 33
5B 61 01 01 8A 00 17 AA 93 53 70 87 01 2E 0F AA 93 53 70 87 01
2B 13 92 EB 54 EA 89 00 69 AA C3 6C 7B 00 89 01 49 92 0C 01 01
92 53 54 19 05
)
NIL 128. 64. -128. 256.
#Y(DISASSEMBLE-LAP-PC->LABEL-A
#20Y(00 01 00 00 00 02 A9 D4 D5 AC 69 8B 6B 02 23 2F F3 55 19 02)
STRING "L"
) )
#.SHORT-CODE-OFFSET -146. #.SHORT-CODE-OPSIZE #.INSTRUCTION-TABLE-K
#.INSTRUCTION-TABLE O (K N) B L NN NB BN NNN NBN NL BL NNL NBL NHL
#Y(DISASSEMBLE-LAP-1
#20Y(00 02 00 00 00 03 A9 07 01 00 6C 07 00 00 55 0C 00 00 19 03) NIL
)
NLX
) )
#Y(#:TOP-LEVEL-FORM-249 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
CREATE-FUN-OBJ REMOVE-OLD-DEFINITIONS
#Y(CREATE-FUN-OBJ
#335Y(00 02 00 00 00 03 D4 D5 AC D6 6A 53 D7 C2 41 D5 AF D9 6A 53 DA 30
C8 3D D5 5F 00 05 DB 6A 53 DA 30 C8 3D D5 5F 00 05 DC 85 53 80 6D
C7 14 D5 5F 00 05 DE 85 53 80 69 C7 14 31 02 33 3D D5 5F 00 05 D9
6A 53 D5 5F 00 05 DB 6A 53 D5 5F 00 05 DC 6A 53 D5 5F 00 05 DE 6A
53 89 01 0E 89 00 0B AB AB 6B 02 33 E2 87 01 2D 80 47 8A 01 0D 89
00 0A AA 86 A6 06 AB E4 87 01 2D 3A 89 01 80 8F 8A 00 80 8B AB AB
6B 02 33 E4 88 01 2D 80 80 D0 14 95 57 14 AC 31 02 33 1A 80 75 C0
1A FF 90 CB 1A 0A DF D5 5F 00 05 E0 85 53 74 C7 14 31 02 33 1A FF
87 CD 1A 5A CF 1A 5A D1 41 D5 5F 01 05 E8 6A 53 6A 63 DA 30 C8 3D
D5 5F 01 05 E9 6A 53 DA 30 C8 3D 42 1A 80 46 5B D5 B3 5D 18 6A 53
D5 B4 5D 19 6A 53 1A 1D 14 30 5D 1A 0F 16 03 1A 19 8B 01 93 1F 77
8B 01 89 00 6D 93 14 7B 04 16 02 7A 01 7A 00 93 20 69 16 02 A8 2F
CC 16 01 1A 2F C7 16 03 EA D5 5F 00 05 DE 85 53 FF 9D 3A 3D 5F 00
04 42 14 5D 16 D5 B0 E9 6A 53 36 01 69 C6 D5 B1 E8 6A 53 0E 17 1B
FF 9F D5 B2 5D 18 30 53 14 6B 03 20 66 06 1A D5 AC 5D 1B AB 30 54
16 01 94 19 03
)
:NAME FNODE 1. :CODEVEC #.#'LIST* 10. 256. 11. 12. 0. 13. 128. 15. 64. 6.
#(1. 7. 12. 16. 19. 21.) 5. 22. #(27. 32. 36. 39. 41.) #.#'VALUES 14. 9.
:CONSTS *COMPILING-FROM-FILE* 17. 18. MAKE-CLOSURE 2.
) )
#Y(#:TOP-LEVEL-FORM-250 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
SIGNATURE REMOVE-OLD-DEFINITIONS
#Y(SIGNATURE
#119Y(00 01 00 00 00 02 A9 6A 5A AA 6A 59 D4 8B 01 7A 02 6B 02 35 8B 01
7A 02 6B 02 33 D4 8B 02 7A 03 6B 02 35 8B 02 7A 03 6B 02 33 8B 02
7A 03 D5 A9 6A E5 7A 04 AB AB D6 AC 6A E5 AB 89 04 0C 00 14 D7 AF
6A E5 B2 B4 3C 08 19 08 D4 8B 09 7A 0A 6B 02 35 8B 09 7A 0A 6B 02
33 D4 8B 0A 7A 0B 6B 02 35 8B 0A 7A 0B 6B 02 33 B5 6A 5A A9 AA AC
6B 02 33 30 61 16 02 1A 48
)
256. 7. 0. 6.
) )
#Y(#:TOP-LEVEL-FORM-251 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
PASS3 REMOVE-OLD-DEFINITIONS
#Y(PASS3
#57Y(00 00 00 00 00 01 63 00 5B 1A 27 7E 01 00 70 D5 A9 D6 78 53 00 93 54
70 A9 D6 AA 6B 02 33 AB D6 AC 6B 02 33 6A 50 D5 A9 D6 78 53 00 30 51
16 02 7A 01 A9 84 B6 55 00 19 03
)
*FNODE-FIXUP-TABLE* FNODE 2.
) )
#Y(#:TOP-LEVEL-FORM-252 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
COMPILE-LAMBDABODY REMOVE-OLD-DEFINITIONS
#Y(COMPILE-LAMBDABODY
#33Y(00 02 00 00 00 03 AA AA 68 00 0E 01 1B 10 00 10 02 AB 2D 03 2C 04 11
D9 A9 DA 30 53 19 04 00 19 04
)
C-LAMBDABODY *NO-CODE* *FNODE-FIXUP-TABLE* PASS2 PASS3 FNODE 2.
) )
#Y(#:TOP-LEVEL-FORM-253 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
COMPILE-LAMBDA REMOVE-OLD-DEFINITIONS
#Y(COMPILE-LAMBDA
#126Y(00 07 00 01 00 00 39 01 02 10 00 00 10 01 00 10 02 0E 03 10 04 00
10 05 00 10 06 00 10 07 04 1A 10 08 04 1C 10 09 04 1E 10 0A 04 24
10 0B 00 10 0C 04 26 10 0D CC 10 0F CC 10 10 00 10 11 8A 31 14 5B
E6 5E 3A 04 3A 72 73 01 E7 5E 3C 73 02 73 03 59 02 09 37 5E 38 5E
38 68 14 63 0F 86 A6 08 89 32 0E 15 12 10 19 09 5E 39 E9 2E 14 16
01 1A 73 A8 34 00 EA 14 E2 5E 3B 30 51 15 1A 66
)
*COMPILING* *COMPILING-FROM-FILE* *C-LISTING-OUTPUT* *ERROR-OUTPUT*
*C-ERROR-OUTPUT* *KNOWN-SPECIAL-VARS* *CONSTANT-SPECIAL-VARS* *FUNC*
*FENV* *BENV* *GENV* *VENV* *VENVC* *DENV* 0. *ERROR-COUNT*
*WARNING-COUNT* *NO-CODE* LABELS FUNCTION COMPILE-LAMBDABODY (NIL NIL)
) )
#Y(#:TOP-LEVEL-FORM-254
#26Y(00 00 00 00 00 01 00 29 01 BE 0B 00 00 D5 2D 02 D5 A9 65 03 01 30 96 BF
19 02
)
0. COMPILE-FORM REMOVE-OLD-DEFINITIONS
#Y(COMPILE-FORM
#32Y(00 06 00 00 00 00 D5 61 00 00 30 AB 0C 00 00 14 68 02 5B B0 73 02 AF
AF AF AF AF 2B 07 03 19 07
)
NIL #:COMPILED-FORM SYMBOL-SUFFIX COMPILE-LAMBDA
) )
#Y(#:TOP-LEVEL-FORM-255 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
COMPILE REMOVE-OLD-DEFINITIONS
#Y(COMPILE
#428Y(00 01 00 01 00 08 38 01 14 39 02 01 02 AD 86 2D 0D 89 02 80 BA AD
83 54 2F C5 14 AE 5A 01 BE 1A 79 D6 D7 AF 2B 03 04 AD 2D 05 1A 80
B4 AD D5 AE 30 9C 1A 35 DA AD 2E 04 8A 05 2E 89 00 6F AD AD 30 96
1A 25 75 00 1A 0C AD D5 36 01 78 98 04 1B 73 97 56 EE 96 1F 09 8B
04 24 08 04 75 01 7A 04 AC 86 30 80 81 DD AE 2E 04 97 19 06 DF AD
5A 01 B5 E2 30 50 1A 80 8B B6 E3 30 50 1A 80 8B B7 E4 30 50 1A 80
8B B8 E5 30 50 1A 80 8B BA E6 30 50 1A 80 8D 5E 42 5D 24 30 50 1A
80 C8 00 1A 81 06 DC 7B 00 8A 41 1F 5E 46 D5 AA 30 9C 04 46 1A 80
F5 A8 34 00 EA 14 E0 5E 48 30 51 8A 46 80 E6 89 42 5E 89 41 61 5E
46 A9 30 96 04 46 1A 80 D7 8A 05 0F 14 D5 36 01 78 98 02 1C 06 94
20 FF 42 75 00 AC 85 30 FF 4E 96 1F 05 8B 04 23 0A 05 AC 86 33 FF
79 5C E0 E0 01 02 63 0D 01 03 B5 85 33 FF 6F 00 14 B6 85 33 FF 6F
00 14 B7 85 33 FF 6F 00 14 B8 85 33 FF 6F 00 14 5B BA 85 33 FF 6E
0E 13 10 14 00 10 15 A5 10 16 A7 10 17 04 17 10 18 04 19 10 19 04
1B 10 1A 04 1D 10 1B 04 1F 10 1C 04 21 10 1D 04 23 10 1E 04 25 10
1F 04 27 10 20 04 29 10 21 04 2B 10 22 04 2D 10 23 5E 42 85 33 FF
32 04 42 54 14 8A 44 12 5E 43 86 33 0D 5E 43 E0 6A 50 04 45 52 1C
03 04 40 51 14 8A 00 14 5B 5D 25 5E 47 96 72 73 01 5D 26 5E 49 73
02 73 03 59 02 EB 5E 45 AA 68 27 63 17 86 A6 FE FF 89 01 FF 10 89
46 FF 1A 92 16 03 12 10 19 14
)
"Name of function to be compiled must be a symbol, not ~S"
TRACED-DEFINITION "~S: redefining ~S; it was traced!" COMPILE WARN
UNTRACE2 "~S is already compiled." "Undefined function ~S" MACRO
"~S is already compiled." LAMBDA
"Not a lambda expression nor a function: ~S" 0. *ERROR-OUTPUT* 5. 6. 7.
4. 8. *TOPLEVEL-DENV* *DENV* *NO-CODE* *COMPILING* *ERROR-COUNT*
*WARNING-COUNT* *COMPILING-FROM-FILE* *C-LISTING-OUTPUT* *C-ERROR-OUTPUT*
*KNOWN-SPECIAL-VARS* *CONSTANT-SPECIAL-VARS* *FUNC* *FENV* *BENV* *GENV*
*VENV* *VENVC* 1. LABELS FUNCTION COMPILE-LAMBDABODY
) )
#Y(#:TOP-LEVEL-FORM-256 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
COMPILE-FILE REMOVE-OLD-DEFINITIONS
#Y(COMPILE-FILE
#701Y(00 01 00 00 80 1C 00 04 00 00 37 04 02 75 04 39 03 37 02 02 0E 04
10 04 37 04 02 0E 05 10 05 01 04 B7 DA 2E 07 53 1B 0A B7 DC 36 02
6A 17 36 01 30 17 F9 8A 0E 05 14 86 3E 80 E3 8A 0D 11 14 85 3E 0D
B5 02 21 80 F1 B5 36 02 30 17 F7 75 00 B7 E0 36 03 6A 1F 4D 82 55
CB 41 89 04 80 E3 B9 85 3E 80 E7 00 14 4D 82 22 89 08 80 E2 BD 85
3E 80 E6 00 14 89 09 80 E4 00 10 0F 5B 4D 81 DD 89 09 80 E2 0E 14
1B 19 00 0F 15 0F 16 0F 17 0F 18 0F 19 0F 1A 0F 1B 0F 1C 0F 1D 0F
1E 0F 1F 75 11 5C 5C 63 20 63 21 B5 89 0E 80 D3 0E 22 10 23 00 10
24 00 10 25 00 10 26 00 10 27 00 10 28 00 10 29 0E 2A 10 2B 03 2C
10 2D 03 2C 10 2E 04 29 51 1C 03 04 2C 51 10 2F 5D 2C 04 26 10 14
04 28 10 30 04 2A 10 20 04 2C 10 21 04 2E 10 31 5D 32 5E 54 2E 33
8A 3C 80 F5 0E 34 10 20 5D 35 5D 36 2C 35 14 73 02 73 02 36 0B 75
06 74 09 F2 75 05 5E 4B 2F 85 11 1A 80 D5 DD B8 36 01 30 17 1A 09
B6 02 21 74 B6 36 02 30 17 F8 DE B7 36 01 78 17 02 75 01 8A 0D FF
1A 1A FF 06 DF B8 36 01 30 17 1A FF 0B B9 E2 36 03 30 1F 1A FF 1A
A3 1A FF 16 BD E2 36 03 30 1F 1A FF 1B A7 1A FF 17 B2 E2 36 03 30
1F 1A FF 14 14 E4 5E 1F 63 11 2C 12 3F 14 69 E9 69 EA 2B 07 13 0E
14 1C FF 0C 1A FF 22 63 22 B7 31 02 29 1A FF 26 AB 5E 44 2E 3C 8A
40 80 4C 14 2F 90 AB 36 0B 75 01 EA EC ED F1 F0 74 09 F2 75 05 5E
4C 2F 85 0E 38 1C 3F 1A 34 5D 46 AA 6A 65 2E 33 8A 00 80 8A 5D 47
A9 6A 65 2E 33 16 02 1A 80 80 00 10 38 5D 39 7C 14 14 68 3A 5B AD
73 02 2E 3B ED 89 43 FF AF 89 40 FF B4 0E 38 1C 09 5D 3D 63 38 30
65 72 2D 3E 11 16 01 5E 43 5B 5D 37 36 01 69 79 A8 5D 37 86 28 48
16 01 5D 3F 5E 54 2E 33 5D 40 63 2D 63 2E 2B 03 33 8A 47 34 0E 15
1C 08 5D 41 63 15 6A 65 2E 33 63 1A 63 19 2E 42 0F 1A 1C 08 5D 43
63 1A 6A 65 2E 33 63 17 63 16 68 44 63 17 63 16 68 45 89 01 FF 6F
89 00 FF 76 16 02 5D 48 2D 33 63 2D 78 A6 38 12 05 16 01 12 0B 16
05 4E 05 00 0D 1C 23 1A 05 05 00 0D 1C 1C 5F 00 04 36 01 30 91 63
0F 36 01 30 91 05 00 00 1B 0A 5F 00 1A 30 1D 5F 00 0E 30 1D 4F 16
01 11 16 01 4E 05 00 05 1C 0E 1A 05 05 00 05 1C 07 5F 00 00 36 01
30 91 4F 16 01 3D 05 00 02 1C 05 14 36 01 30 91 42 4E 05 00 00 1C
0B 1A 05 05 00 00 1C 04 14 5C 30 91 4F 16 05 12 02 19 06
)
:OUTPUT-FILE :LISTING :WARNINGS :VERBOSE *COMPILE-WARNINGS*
*COMPILE-VERBOSE* (#".LSP") SEARCH-FILE #".LSP" #".FAS" #".LIB" #".LIS"
:INPUT #.#'VALUES :OUTPUT *LIBOUTPUT-STREAM*
"~&Listing of compilation of file ~A~%on ~@? by ~A, version ~A"
*DATE-FORMAT* GET-DECODED-TIME FORMAT *COMPILING* *FUNCTIONS-WITH-ERRORS*
*KNOWN-SPECIAL-VARS* *UNKNOWN-FREE-VARS* *CONSTANT-SPECIAL-VARS*
*KNOWN-FUNCTIONS* *UNKNOWN-FUNCTIONS* *INLINE-FUNCTIONS*
*NOTINLINE-FUNCTIONS* *INLINE-DEFINITIONS* *USER-DECLARATION-TYPES*
*COMPILED-MODULES* *PACKAGE* *READTABLE* *ERROR-OUTPUT* *C-ERROR-OUTPUT*
*FUNC* *FENV* *BENV* *GENV* *VENV* *VENVC* *TOPLEVEL-DENV* *DENV* 0.
*ERROR-COUNT* *WARNING-COUNT* *NO-CODE* *COMPILING-FROM-FILE*
*C-LISTING-OUTPUT* "~%Compiling file ~A ..." C-COMMENT *KEYWORD-PACKAGE*
VERSION QUOTE "EOF" *PACKAGE-TASKS* #:TOP-LEVEL-FORM SYMBOL-SUFFIX
COMPILE-LAMBDABODY DISASSEMBLE-CLOSURES PROGN C-EVAL-WHEN-COMPILE
"~&~%Compilation of file ~A is finished." "~%~D error~:P, ~D warning~:P"
"~%There were errors in the following functions:~%~{~<~%~:; ~S~>~^~}"
NSET-DIFFERENCE
"~%The following functions were used but not defined:~%~{~<~%~:; ~S~>~^~}"
SET-DIFFERENCE INTERSECTION
"~%The following special variables were not defined:~%~{~<~%~:; ~S~>~^~}"
"~%The following special variables were defined too late:~%~{~<~%~:; ~S~>~^~}"
"~%"
) )
#Y(#:TOP-LEVEL-FORM-257 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
DISASSEMBLE-CLOSURES REMOVE-OLD-DEFINITIONS
#Y(DISASSEMBLE-CLOSURES
#46Y(00 02 00 00 00 03 00 29 01 00 0B 00 00 A8 65 00 01 AC 93 32 16 01 60
00 00 6A 65 5B 1A 09 7E 01 00 14 AD 2E 01 7A 01 A9 84 B6 73 00 19 06
)
#Y(DISASSEMBLE-CLOSURES-MARK
#52Y(00 01 00 00 00 02 A9 07 00 00 55 0C 00 00 A9 6A 5A 5B 1A 19 7E 01
00 14 86 33 10 A8 86 30 0C A8 61 00 00 36 03 83 DC 03 A8 26 5B 7A
01 A9 84 B6 63 00 19 04
)
NIL
)
DISASSEMBLE-CLOSURE
) )
#Y(#:TOP-LEVEL-FORM-258 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
DISASSEMBLE-CLOSURE REMOVE-OLD-DEFINITIONS
#Y(DISASSEMBLE-CLOSURE
#419Y(00 01 00 01 00 08 37 01 03 0E 00 EB A9 2F 90 A9 2F 90 D5 AA 36 02
2F 8E AA 6A 58 AA 2F 86 AA 2D 02 3E 08 A8 D7 8A 01 1F B3 2F 90 D8
B4 36 02 2F 8E A8 B4 2F 86 D9 B4 36 02 2F 8E 8B 01 B4 2F 86 7A 01
7C 00 89 01 61 16 02 B1 2F 90 AF B2 2F 86 DA B2 36 02 2F 8E B1 2F
90 AE B2 2F 86 DB B2 36 02 2F 8E B1 2F 90 89 05 80 44 C7 14 B2 36
02 2F 8E 8A 04 80 56 AB 6A 63 B2 2F 90 A8 B3 2F 86 DE B3 36 02 2F
8E A8 23 0B 06 E0 B3 36 02 2F 8E E1 B3 36 02 2F 8E AC A8 83 B6 28
8B 00 7A 01 B4 2F 86 A8 83 B6 0D CD 14 B4 36 02 2F 8E 1A 68 C6 1A
FF B9 CC 1A 71 B2 2F 90 E4 B3 36 02 2F 8E 16 01 1A 12 16 01 89 03
6E 16 01 1A 09 B1 2F 90 E5 B2 36 02 2F 8E 5B A9 1A 0C 8B 00 A8 E6
68 13 7B 02 16 01 7A 00 92 20 71 16 01 A8 77 CC 00 AA AA 68 14 8A
00 80 A7 92 53 70 93 53 71 B5 2F 90 A9 B6 2F 86 D7 E9 B7 69 95 6B
01 34 1A 3D 92 53 25 17 2E 5C 93 54 53 1A 10 5C 5D 18 94 1A 05 5C
63 19 94 54 54 70 31 02 33 14 2F 00 1A 0E 5D 1A 93 54 1A 03 5D 1A
93 54 70 AD 2F B8 14 3C 02 1A 1B 00 1A 18 5D 16 B8 2F 8D 7C 01 A9
A9 88 01 30 73 16 02 A8 B6 2F 89 92 20 FF B3 00 3E 02 8A 01 35 D7
DF 5D 1B BA 69 95 6B 01 34 6B 01 31 1A 0F A8 B8 36 02 2F 8E 1A 1E
5D 16 BA 2F 8D 7C 01 A9 A9 88 01 30 73 16 02 5D 1C B8 36 02 2F 8E
A9 23 1A 5E A8 B8 2F 86 16 04 7A 00 89 00 FF 59 16 02 B1 2F 90 19
0B
)
*STANDARD-OUTPUT* "Disassembly of function " SIGNATURE 0. "(CONST "
") = " " required arguments" " optional arguments" "Rest parameter"
"No rest parameter" " keyword parameter" 1. "s" ": " "." ", "
"Other keywords are allowed." "No keyword parameters" 35.
WRITE-TO-SHORT-STRING DISASSEMBLE-LAP 6. #\Space
#S(HASH-TABLE EQ (CONST&SYMBOL-FUNCTION&STORE . 34.) (COPY-CLOSURE . 34.)
(COPY-CLOSURE&PUSH . 34.) (CONST&SYMBOL-FUNCTION . 34.)
(CONST&SYMBOL-FUNCTION&PUSH . 34.) (CONST&STORE . 34.) (BIND . 34.)
(GETVALUE&PUSH . 34.) (GETVALUE . 34.) (SETVALUE . 34.)
(CONST&PUSH . 34.) (CONST . 34.) (JMPIFNOTEQTO . 34.)
(JMPIFEQTO . 34.) (CALL2&JMPIF . 34.) (CALL2&JMPIFNOT . 34.)
(CALL2&PUSH . 34.) (CALL2 . 34.) (CALL1&JMPIF . 34.)
(CALL1&JMPIFNOT . 34.) (CALL1&PUSH . 34.) (CALL1 . 34.) (CALL0 . 34.)
(CALL&PUSH . 28.) (CALL . 28.) (CALLSR&JMPIF . 13.)
(CALLSR&JMPIFNOT . 13.) (CALLSR&STORE . 13.) (CALLSR&PUSH . 13.)
(CALLSR . 13.) (CALLS2&JMPIF . 7.) (CALLS2&JMPIFNOT . 7.)
(CALLS2&STORE . 7.) (CALLS2&PUSH . 7.) (CALLS2 . 7.)
(CALLS1&JMPIF . 1.) (CALLS1&JMPIFNOT . 1.) (CALLS1&STORE . 1.)
(CALLS1&PUSH . 1.) (CALLS1 . 1.)
)
256. FUNTABR-INDEX STRING 42. "; "
) )
#Y(#:TOP-LEVEL-FORM-259 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
DISASSEMBLE REMOVE-OLD-DEFINITIONS
#Y(DISASSEMBLE
#109Y(00 01 00 00 00 02 01 02 AB 86 2D 10 AB 84 54 21 75 01 95 EA 14 D5
36 01 86 98 19 ED 95 1F 09 8B 03 24 02 04 7A 03 74 01 AB 85 33 0D
C1 14 AC 5A 01 BE 1A 79 95 56 ED 1A 63 AB 85 30 2A AB D8 6A 50 AC
D9 6A 50 AD DA 6A 50 AE DB 6A 50 AF DC 6A 50 B0 DD 6A 50 B1 DE 6A
50 8A 08 06 B2 D8 6A 50 9A 52 14 2B 08 0B ED AB 2D 0C 95 19 04
)
"Undefined function ~S" TRACED-DEFINITION MACRO "Cannot disassemble ~S"
0. 1. 4. 5. 6. 7. 8. COMPILE-LAMBDA DISASSEMBLE-CLOSURE
) )